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Appendix  A:  SLAM  Coding  and  Structural  Model 

This  appendix  contains  the  entire  SLAM  coding  required 
to  execute  the  airfield  model  on  the  Control  Data  Corporation 
(CDC)  6600  system  at  Aeronautical  Systems  Division,  Wright- 
Patterson  AFB,  Ohio. 

The  graphical  depictions  of  the  structural  model  are 


inserted  following  each  functional  section  of  the  code 
listing. 


.♦JOB  CONTROL  LANGUAGE 

.♦  TH£  MODEL  HILL  RUN  WITH  JUST  UNDER  CM2500M.  CP  TINE  WITHOUT  ANY 
.♦TRACE  HILL  BE  UNDER  T18§.  INPUT/OUTPUT  TINE  HILL  BE  UNDER  10360. 
.♦THE  LIMITS  SHOWN  WERE  ADEQUATE  TO  GENERATE  90000  LINES  OF  OUTPUT 
.♦WITH  TRACE  FOR  SIX  SQUADRONS  OF  SIXTEEN  AIRCRAFT  WITH  REPLACEMENT 
.♦SQUADRONS  REQUIRED  WHEN  OPERATIONAL  AIRCRAFT  IN  A  SQUADRON  FELL 
.♦BELOW  12.  THE  SUPPORTING  FORTRAN  If  COMPILED  EXTERNALLY  AND 
.♦STORED  IN  AN  IPS  FILE  WHICH  IS  ACCESSED  BY  THE  JCL. 

,♦ 

RWM.CM250000.T24i, 10400.  T800845.RANNiBOX4566.AFIT,AFIT,«FIT,91,91,9l 
ATTACH, PROCFIL,ID=A810171,SN=ASDAD. 

BEGIN, NOSFILE. 

G£T,FZZC8IN,ID--C0V£Y. 

REWIND, FZZCBIN. 

ATTACH, PROCFIL.SLAMPROC, IB=AFIT. 

BEGIN, SLAM, ,M=FZZCBIN,PL=10000i. 
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SIMULATION  CONTROL  STATEMENTS 

THE  CEN  CARD  IS  STANDARD.  THE  LIMITS  CARD  ALLOUS  FOR  99  FILES. 
FILE  46  IS  NOT  CURRENTLY  USED.  48  ATTRIBUTES  ARE  USED. 

ATTRIBUTES  1  THROUGH  30  ARE  AIRCRAFT  ATTRIBUTES.  PILOTS  HAVE 
ATTRIBUTES  1  THROUGH  12.  WHEN  PILOTS  GET  INTO  AN  AIRCRAFT  THEIR 
ATTRIBUTES  ARE  TRANSFERRED  INTO  AIRCRAFT  ATTRIBUTES  31  THROUGH  42. 
THE  REMAINING  AIRCRAFT  ATTRIBUTES!  43  THROUGH  48>  ARE  MISSION 
ATTRIBUTES  FOR  TIC  FLIGHT  AS  A  WHOLE.  ONLY  AIRCRAFT  AND  PILOTS 
CARRY  ATTRIBUTES.  INDIVIDUAL  ATTRIBUTES  ARE  ENUMERATED  BELOtt- 

AIRCRAFT  ATTRIBUTES 

1  -  SO  ID  NUMBER  (1-6) 

2  -  TAIL  NUMBER 

3  -  TYPE  PARKING.  0-  SHELTER  ON  QRA.  1-  SHELTER.  2-  REVETMENT. 

4-  WING  MX  REVETTEMENT.  5-  NOT  PARKED 

4  -  f  SORTIES  ON  DAY  1 

5  -  I  SORTIES  ON  DAY  2 

6  -  I  SORTIES  ON  DAY  3 

7  -  TOTAL  MINUTES  ENGINE  RUN  TIME 

8  -  TEMPORARY  STORAGE  FOR  SERVICE  DURATIONS  TO  INCREMENT  ATRIB  7 

9  -  GUN  STATUS.  0-  EXPENDED .UNLOADED.  1-  LOADED.  2-  RUNAWAY . 

3-  EXPLODED  UHEN  FIRED 

10  -  BOHBS/RX.  0-  EXPENDED.UNLOADEDi  1-  LOADED.  2-  HUNG 

11  -  MISSILES (AIM  OR  AGH).  0-  EXPENOED.UNLOADED.  1-  LOADED. 

2-  MALFUNCTIONED 

12  -  CONFIGURATION  BY  AREA  (1.2,  OR  3) (SET  IN  USERI) 

13  -  AIRCRAFT  LOCATION  ON  THE  AIRFIELD 

14  -  AIRCRAFT  GROUND  TIME  WITH  ENGINE  RUNNING 

15  -  WHILE  AIRCRAFT  IS  ON  MISSION  IT  IS  MISSION  DURATION,  AFTER 

LANDING  IT  IS  SET  TO  FUEL  REQUIRED  DURING  REFUELING 

16  -  BATTLE  DAMAGE  CODE,  0-  NONE,  1-  LIGHT (SMALL  ARMS), 

2-  HEAVIER  LIGHT (FRAG),  3-MODERATE (SOME  STRUCTURAL  DAMAGE 
BUT  PROBABLY  REPAIRABLE),  4-  SERIOUS (DIFFICULT  TO  FLY  AND 
A  LONG  REPAIR  TINE  OR  UNABLE  TO  REPAIR  LOCALLY),  5-  SEVERE 
(CRASH  LANOEU,  CANNOT  BE  REPAIRED  LOCALLY  IF  AT  ALL) 

17  -  SYMPATHETIC  ABORT  CODE,  1-  GROUND,  2-  AIR,  ALSO  MAINTENANCE 

PROCESSING  PRIORITY  CODE  IF  AIRCRAFT  DO  NOT  PROCEED  TO 
TURNAROUND  SERVICE  DIRECTLY.  PRIORITY  CODE  FOR  WING  IS 
THE  SUM  OF  THE  4  AND  5  LEVEL  FAILURES.  FOR  KMT  THE  SANE. 

FOR  SQUADRON  MX  IT  IS  THE  SUM  OF  THE  2,3,4  AND  5  FAILURES. 
PROCESSING  IS  ACCOMPLISHED  USING  LOW  VALUE  FIRST  FOR  THIS 
ATTRIBUTE  (FIX  THE  LEAST  BROKE  FIRST) 

18  -  MAINTENANCE  FAILURE  CODE  -A  SIX  DIGIT  CODE  WITH  EACH  DIGIT,  IN 

(WIDER ,  RELATED  TO  FAILURES  IN  THE  SYSTEMS  WHOSE  NEXT  TIME  OF 
FAILURE  IS  CARRIED  BY  ATTRIBUTES  19  THROUGH  24.  FAILURE 
OF  A  SYSTEM  OCCURS  WHEN  ENGINE  RUN  TIME  EXCEEDS  THE  NEXT 
TIME  OF  FAILURE  OF  A  SYSTEM.  THE  LEVEL  OF  FAILURE  IS  SET 
ppnii&im  icTtrai  i  y 

19  -  NEXT  TIME  OF  FAILURE  (NTOF)  OF  SYSTEM  1  -  ELECTRICAL 
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i  20  -  NTOF  OF  SYSTEM  2  -  ENG  INEZ FUEL 

21  -  NTOF  OF  SYSTEM  3  -  H Y DRAUL I CS /PNEUHAT I CS 

22  -  NTOF  OF  SYSTEM  4  -  AIRFRAME ( INCLUDES  STRUTS  AND  TIRES) 

23  -  NTOF  OF  SYSTEM  5  -  COMM/NAV/INSTRUMENTS/RADAR 

24  -  NTOF  OF  SYSTEM  4  -  FIRE  CONTROL /WEAPONS  RELEASE 

25  -  CARRIES  HARK  TIME  FOR  TURNAROUND  STATISTICS  DAT  1 

26  -  CARRIES  HARK  TINE  FOR  TURNAROUND  STATISTICS  DAT  2 

27  -  CARRIES  HARK  TIHE  FOR  TURNAROUND  STATISTICS  DAT  3 

28  -  TOTAL  HINUTES  ENGINE  RUN  TIHE  DAT  1 

29  -  TOTAL  HINUTES  ENGINE  RUN  TIHE  DAT  2 

30  -  TOTAL  HINUTES  ENGINE  RUN  TIHE  DAT  3 

PILOT  ATTT1BUTES 

1  -  SO  ID  NUMBER  (1-6! 

2  -  PILOT  ID  NUMBER 

3  -  PILOT  STATUS,  0-PILOT,  1-  FLIGHT  LEAD  (NON-QRA  QUALIFIED) , 

2-  FLIGHT  LEAD  (QRA  QUALIFIED),  3-  FLIGHT  LEAD  ON  ORA 

4  -  #  SORTIES  ON  DAT  1 

5  -  I  SORTIES  ON  OAT  2 

6  -  0  SORTIES  ON  DAT  3 

7  -  MARK  TIHE  FOR  FLTINC  TIHE  DAT  l 

8  -  HARK  TIHE  FOR  FLTINC  TIME  DAT  2 

9  -  MARK  TIME  FOR  FLTING  TIME  DAT  3 

10  -  CARRIES  HARK  TIHE  FOR  PILOT  GROUND  TIHE  STATISTICS 

FOR  TIHE  BETWEEN  ENGINE  SHUT  DOWN  AND  NEXT  TIHE 
A  PfiEFLIGNT  IS  BEGUN  DAT1 

11  -  HARK  TIHE  FOR  PILOT  GROUND  TIHE  DAT  2 

12  -  HARK  TIHE  FOR  PILOT  GROUND  TIHE  DAT  3 

MISSION  ATTRIBUTES 

43  -  FLIGHT  AIRCREW  COMPOSITION,  CASE  I  -  1  FLT  LEAD,  CASE  II  - 

2  FLT  LEADS,  CASE  III  -  3  FLT  LEADS  (THE  SECOND  FLT  LEAD 
IN  CASE  II  IS  ALWAYS  IN  THE  NUMBER  3  AIRCRAFT) 

44  -  NUMBER  OF  AIRCRAFT  IN  THE  FLIGHT  (2  OR  3) (2  MINIMUM) 

45  -  AIRCRAFT  POSITION  IN  THE  FLIGHT  (1  OR  LEAD,  2,  OR  3,  WITH  A 

FLIGHT  LEAD  IN  POSITION  1  AT  ALL  TIMES) 

46  -  MISSION  NUMBER  (COUNTER  GOES  FROM  1  TO  46  THEN  RECYCLES 

FROM  1  TO  46) 

47  -  AREA  TO  WHICH  MISSION  IS  SEN?,  1-  CLOSE,  LO-LO-LO  PROFILE, 

2-  FURTHER,  LO-LO-HIGH,  3-  FARTHEST,  HIGH-LO-H1GH 

48  -  ALWAYS  ZERO,  USED  TO  HATCH  PILOTS  WITH  A/C 


i  THE  MAXIMUM  NUMBER  OF  ENTRIES  IN  ALL  FILES  (MNTRT)  SPECIFIED  AS 
i  506  PROVIDES  A  SAFETY  MARGIN  FOR  THE  WORST  CASE  THE  MODEL  SHOULD 
!  ENCOUNTER  WITH  4  SQUADRONS  OF  16  UE  AIRCRAFT. 

GEN,TESTFIN,MANN  &  SHOOK  91  AFIT, 1/7/82,1! 
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i  19 

!  NUMBERED  ACTIVITIES 

m 

1 

STATISTICS  ARE  COLLECTED 

121 

I 

122 

;  i 

- 

RECONFIGURATION 

123 

i  2 

- 

REARMING 

124 

I  3 

- 

MX  POST-FLIGHT 

125 

;  4 

- 

HOTPIT  REFUELING 

126 

;  5 

- 

SHELTER  REFUELING 

127 

;  6 

- 

TRUCK  REFUELING 

128 

;  7 

- 

WGSHOP1 

SERVICE 

129 

;  8 

- 

WGSH0P2  SERVICE 

138 

;  9 

- 

NGSH0P3  SERVICE 

131 

;  18 

- 

WCSH0P4  SERVICE 

132 

;  n 

- 

MMT1 

SERVICE 

133 

;  12 

- 

MMT2 

SERVICE 

134 

!  13 

- 

HHT3 

SERVICE 

135 

;  14 

- 

MHT4 

SERVICE 

136 

i  15 

- 

HHT5 

SERVICE 

137 

;  16 

- 

HHT6 

SERVICE 

138 

;  17 

- 

SOU 

MX 

SERVICE 

139 

;  is 

- 

SQ12 

MX 

SERVICE 

140 

;  19 

- 

$013 

MX 

SERVICE 

141 

;  20 

- 

sou 

MX 

SERVICE 

142 

1  21 

- 

$021 

MX 

SERVICE 

143 

;  22 

- 

SQ22 

MX 

SERVICE 

144 

f  23 

S023 

MX 

SERVICE 

145 

;  24 

$024 

MX 

SERVICE 

146 

i  25 

$831 

MX 

SERVICE 

147 

i  26 

S032 

MX 

SERVICE 

148 

i  27 

SQ33 

MX 

SERVICE 

149 

1  28 

S034 

MX 

SERVICE 

150 

!  29 

- 

SO  41 

MX 

SERVICE 

151 

1  30 

- 

3042 

MX 

SERVICE 

152 

;  3i 

- 

S843 

MX 

SERVICE 

153 

;  32 

- 

S044 

MX 

SERVICE 

154 

!  33 

- 

S051 

MX 

SERVICE 

155 

;  34 

- 

$052 

MX 

SERVICE 

156 

!  35 

- 

SQ53 

MX 

SERVICE 

157 

t  36 

- 

$054 

MX 

SERVICE 

158 

!  37 

- 

$061 

MX 

SERVICE 

159 

i  38 

- 

$062 

MX 

SERVICE 

160 

1  39 

- 

$063 

MX 

SERVICE 

161 

!  40 

- 

$064 

MX 

SERVICE 

162 

;  41 

- 

NORMAL  PREFLICHT 

163 

;  42 

- 

DEBATED  PREFLIGHT 

164 

!  43 

- 

NORMAL  TMA3 

165 

;  44 

- 

DELATED  TMA3 

166 

;  45 

- 

NORMAL  TMA2 

167 

;  46 

- 

DELATED  TMA2 

168 

i  47 

- 

DEARM  SERVICE  AT  DEAR 
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mmm 


171 

171 

in 


i  48  -  DEARM  SERVICE  AT  DEA3 

49  -  DOWNLOAD  ORDNANCE  AT  DING  MAINTENANCE. 

51  -  DOWNLOAD  ORDNANCE  FOR  NHT  MAINTENANCE. 


;  RLE  ASSIGNMENTS 


173 


174 

» 

175 

\ 

176 

!  1  -  18 

-  A/C  READY  POOL .PILOT  READY  POOL  I  HATCH  Q'S  (PER  SOON) 

177 

!  19  -  20 

-  ORA  A/C  AND  PILOTS 

178 

1  21 

--  AWAIT  HITEAH  (PREFLICHT) 

179 

5  22  -  44 

-  HATCH  Q’S  FOR  LAUNCH  PROCESS 

188 

i  45  -  46 

-  AWAIT  RUNWAY  (TAKEOFF) 

181 

i  47 

-  AWAIT  RUNWAY  (LANDING) 

182 

.48-49 

-  AWAIT  DEARHINC 

183 

;  50 

--  AWAIT  HOTPIT  REFUELING 

184 

i  51 

-  AWAIT  HXTEAN  (TURNAROUND  SERVICE) 

185 

i  52 

-  AWAIT  REARMING 

186 

i  53 

--  AWAIT  FUEL  TRUCK 

187 

!  54 

-  GATE  TO  CLOSE  IF  OUT  OF  FUEL 

188 

!  55  -  57 

-  MATCH  AFTER  TURNAROUND  SERVICING 

189 

i  58  -  61 

-  WING  MX  SHOPS 

190 

i  62 

-  WING  MX  QUEUE 

191 

!  63  -  68 

-  HNT  NX  UNIT 

192 

!  69 

--  MMT  MX  QUEUE 

193 

.78-73 

-  SQDN  1  MX  SHOPS 

194 

i  74  -  77 

-  SQDN  2  MX  SHOPS 

195 

5  78  -  81 

-  SQDN  3  MX  SHOPS 

196 

1  82  -  85 

-  SQON  4  MX  SHOPS 

197 

!  86  -  89 

-  SQDN  5  MX  SHOPS 

198 

.  90  -  93 

-  SQDN  6  MX  SHOPS 

199 

.94-97 

-  MATCH  AFTER  SQDN  MX  SERVICE 

208 

.  98 

-  AWAIT  MXTEAM  (NX  CONTROL) 

201 

!  99 

-  JUNK  FILE  (A/C  ATTRITEB.  CRASHED.  OR  SCRAPPED) 

202 

! 

GLOBAL  VARIABLE  ASSIGNMENTS 


1  -  MISSION  VARIABLES 

mu...  XX( 44)  -  MISSION  STATUS  (USED  TO  DETERMINE  CURRENT  MAIN¬ 
TENANCE  STATUS  OF  A/C  IN  A  PARTICULAR  FLIGHT  DURING  START , 
TMA,  TAKEOFF.  AND  REJOIN.  USED  TO  ASSIGN  MISSION  DURA¬ 
TION  TO  EACH  A/C  IN  A  PARTICULAR  FLIGHT  (WHILE  AIRBORNE!. 
XX(47)  -  MISSION  NUMBER  (SET  BT  SCHEDULER). 

XX (48)  -  REQUIRED  EXTERNAL  TANK  CONFIGURATION  (SET  BT  SCHEDULER). 
XX(49)  -  MISSION  CREW  COMPOSITION  (SET  BT  ORGANPT) . 

XX (97)  -  AREA  MISSION  IS  GOING  TO  (SET  BT  SCHEDULER). 

2  -  CREATION  VARIABLES 

XX (56)  -  A/C  CREATION  COUNTER 

XX (57)  -  NUMBER  OF  A/C  TO  BE  CREATED  PER  SQUADRON. 

XX (58)  -  NUMBER  OF  PILOTS  TO  BE  CREATED  PER  SQUADRON. 

XX (59)  -  INITIAL  CONFIGURATION 

XX (81)  -  NUMBER  OF  PILOT /AIRCRAFT  ON  ORA 

XX (82)  -  NUMBER  OF  QRA  QUALIFIED  PILOTS/SQUADRON 

XX  (83)  -  NUMBER  OF  FLIGHT  LEAD  QUALIFIED  PILOTS/SQUADRON 

XX (84)  -  PERCENT  OF  A/C  INITIALLT  OPERATIONAL 

XX (70)  -  PILOT  ID  NUMBER  COUNTER 

XX  (71)  -  PILOT  STATUS  COUNTER 

XX  (72)  -  A/C  TAIL  NUMBER  COUNTER 

XX (73)  -  A/C  FLIGHT  POSITION  COUNTER  (RESET  TO  ZERO  BT  SCHEDULER). 
XX (74)...  XX (79)  -  A/C  QRA  STATUS  COUNTERS,  SQ1  THRU  SQ8. 

3  -  OPERATIONAL  VARIABLES 

XX (851  -  PROBABILITY  OF  A/C  DELAT  AT  PILOT  PREFLIGHT 
XX (88)  -  PROBABILITY  OF  A/C  DELAT  AT  START 

XX (87)  -  PROBABILITY  OF  A/C  DELAT  AT  TMA 

XX (88)  -  PROBABILITY  OF  FLT  DELAT  AT  TAKEOFF 

XX (691  -  PROBABILITY  OF  A/C  DELAT  AT  REJOIN 

4  -  NETWORK  VARIABLES 

XX! 50)...  XX(55)  -  RESUPPLY  REQUEST,  SOI  THRU  SQ6 

XX (80)...  XX (91)  -  PILOT/AIRCRAFT  FORMATION 

XX (92)  -  MISSION  FLIGHT  TIME 

XX (93)  -  MMT  POOL  SWITCH 

XX (95)  -  DUMMY  VARIABLE  FOR  FUNCTION  CALLS 

XX (96)  -  EXECUTIVE  NETWORK  SWITCH 

XX (98)  -  MASTER  CLOCK  DELAY  TIME 


5  -  RESPONSE  VARIABLE 


XX (94)  -  TOTAL  EFFECTIVE  SORTIES  FLOWN 


&  -  OTHER  VARIABLES 

XX (60)  -  INITIAL  POL  SUPPLT 
XX (99)  -  UNUSED 

XX (1010) -  COUNTER  FOR  NUMBER  OF  A/C  EXPERIENCING  A  NX  FAILURE. 


MAINTENANCE  PRIORITY  PROCESSING 

THE  PROCESSING  OF  A/C  IN  MAINTENANCE  IS  BASED  ON  LON 
VALUE  FIRST  OF  ATTRIBUTE  17.  THE  NAT  THE  VALUE  IS  COMPUTED 
IS  EIPLAINED  IN  THE  MAINTENANCE  SECTIONS. 


266 

PRIORITY /62.LWF ( 17> » 

267 

PRI0RITT/69iLVF(17l  i 

268 

PRIORITY/70, LVF117) } 

269 

PRIORITY /7l ,LVF ( 17) ! 

270 

PRIORITY/72.LVF417) i 

271 

PRI0RITT/73.LVF(17)J 

272 

PRIORITY/74, LVF(17)i 

273 

PRIORITY /75i LVF (17) i 

27* 

PRIORITY /76»LVF (17) i 

275 

PRIORITY/77, LVFU7M 

276 

PRI0RITY/78iLVF(17)i 

277 

PRIORITY /79»LVF ( 17) ! 

278 

PRIORITY/80.LVFU7); 

279 

PRIORITY/81 » LVF (17) ! 

280 

PRIQRITY/82,LVF(17)» 

281 

PRIORITY /83»LVF { 17> 1 

282 

PRIORITY/84, LVF(171i 

283 

PRI0RITY/d5,LVF(17) J 

284 

PRIORITY /86»LVF (17) i 

285 

PRIORITY/87, LVF117)! 

286 

PRIORITY/88, LVF(17)i 

287 

PRIORITY/89, LVFi 17) I 

288 

PRIORITY/90, LVF(17)I 

289 

PRIORITY/91, LVF(17)i 

290 

PRI0RITY/92,LVF(17) ,' 

291 

PRIORITY/93, CVF1171! 

292 

i 

262 

263 

264 

265 


11 


293 

294 

295 
294 

297 

298 

299 
30# 

381 

382 

383 

384 

385 
388 
307 

388 

389 

310 

311 

312 

313 

314 

315 
314 

317 

318 

319 
328 

321 

322 

323 

324 

325 
324 

327 

328 

329 

330 

331 

332 

333 

334 

335 
334 

337 

338 

339 

340 

341 


!  RESOURCE  INITIALIZATION 

!  EACH  RESOURCE  IS  SET  TO  ITS  INITIAL  CAPACITY  AND  THE  PRIORITY 
1  FOR  USERS  IS  SPECIFIED  BT  THE  FILE  NUMBER  ORDER.  FOR  EXAMPLE, 

!  MXT£AM(94I, 21, 51*98  SPECIFIES  Vo  CREW  CHIEFS  AVAILABLE  WITH  PRI- 
!  OftITY  TO  PREFLIGHT*  THEN  ENGINE  SHUT  DOWN  AND  FINALLY  AN  ALLOCA- 
1  TION  AT  MAINTENANCE  CONTROL. 

network; 

RESOURCE/UCSHOP1 (01.58! 

RESOURCE/WCSHQP210) *59i 
RES0URCE/UGSH0P318) *40i 
RESOURCE/WCSHOP4 (01 *41 ! 

RESOURCE/MHT1 (0) *43* 

RESOURCE /NNT210) *44! 

RESGURCE/MHT3101.45! 

RESOURCE / MHT 4(01 *44! 

RESOURCE/MHT510) *47? 

R£$QURC£/HHT4(0>,4S! 

RESOURCE/MXTEAH(0) ,21,51,98* 

RESOURCE/SQ1MX1 (8) *70* 

RES0URCE/SQ1HX2(0! *71  * 

RESOURCE/SO1HI310) *72* 

RESOURCE/501MX4 (0) *73* 

RES0URCE/SQ2MX1 (0) *74* 

RESOURCE/SG2MX2(0) *75* 

RES0URCE/3QZHX3 (0) .74! 

RES0URCE/S02MX4 (0) *  77 » 

RESGURCE/SQ3MXI (01 *78* 

RESOURCE/S03MX2  (01 . 79* 

RESOURCE/ SQ3HX3 (0) *801 
RESOURCE/SQ3MX4 (0) *81  * 

RESOURCE/SQ4MX1 (0! *82* 

RESOURCE/SQ4MX2 (0) *83i 
RES0URCE/SQ4HX3 (81,845 
RES0URCE/S04MX4  <01,85! 

RES0URCE/S85NX1 (01,84! 

RE$OURCE/S85HX2(0) ,87* 

RESOURCE/ SQ5HX3 (01 *86! 

RESQURCE/S05NX4 (0) ,89! 

RES0URCE/SQ4NX1 (0) *90! 

RESGURCE/Sfl4HX2(0! ,91 ! 

RESOURCE/S04MX3 (01*92! 

RES0URCE/S04MX4 (01,93! 

RESOURCE/REARM (01,52! 

RESOURCE/REFUEL (0) *53! 

RESOURCE / DEARM ( 0) *  48 , 49 ! 

RESOURCE/RUNNAT (01,47*45,44! 

RESOURCE/HOTFIT  <01 ,50! 
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342 

343 

344 

345 

346 

347 

348 

349 
358 

351 

352 

353 

354 

355 

356 

357 

358 

359 
368 

361 

362 


GATE  INITIALIZATION 

EACH  GATE  HAS  AN  INITIAL  POSITION.  OPEN  OR  CLOSED.  GATES  ARE  USED 
TO  KEEP  AIRCRAFT  IN  AN  AWAIT  NODE  UNTIL  THE  OCCURENCE  OF  SOME  EVENT 
WHICH  (CANS  THET  COULD  POSIBLT  ACQUIRE  A  RESOURCE  THET  NEED  -  AT 
THAT  POINT  AN  OPEN  GATE  NODE  IS  USED  TO  ALLOW  THE  AIRCRAFT  TO  FLOW 
ON.  IN  THE  CASE  OF  FUEL  THE  GATE  IS  INITIALLY  OPEN  AND  IT  IS  CLOSED 
WHEN  THE  FUEL  SUPPLY  IS  EXHAUSTED. 

C A TE /JUNK .CLOSE . 99 i 
GATE/FUELAVAL, OPEN, 545 
GATE/HHTPQOL, OPEN. 695 
GATE/WCPOOL, OPEN. 625 
GATE/RDYPOOL1. CLOSE. 15 
GATE/RD YP00L2. CLOSE. 45 
GATE/RDYP00L3. CLOSE, 75 
CATE/RDYP00L4. CLOSE, li! 

CATE/RDYP00L5, CLOSE, 135 
GATE/RDYP00L6, CLOSE,  16! 

GATE/QRAPOOL, CLOSE, 19! 

GATE/P I LGT9RA, CLOSE, 2§ 5 
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AIRCRAFT  AND  PILOT  CREATION 

AIRCRAFT  ARE  CREATED  AT  TINE  ».  IF  RESUPPLY  IS  REQUIRED  (REPLACE¬ 
MENT  SQUADRONS).  ADDITIONAL  AIRCRAFT  ARE  CREATED  ON  DAT  2  AND  DAT 
3.  THE  USER  CAN  SPECIF?  THE  NUMBER  OF  AIRCRAFT  TO  BE  USED  FOR 
EACH  SQUADRON  (UE)  IN  THE  FORTRAN  CODE  (MAT  OF  51) .  THIS  NUMBER 
APPLIES  TO  ALL  SQUADRONS  AND  TO  ALL  REPLACEMENT  SQUADRONS  SCHEDULED  BT 
SUBROUTINE  RESUPLT.  THE  DECISION  TO  RESUPPLT  IS  MADE  BT  THE 
PROGRAM  BASED  ON  THE  NUMBER  OF  AIRCRAFT  THE  USER  SPECIFIES 
FOR  LIMITAC.  THIS  IS  THE  MINIMUM  NUMBER  OF  OPERATIONAL  A/C 
AT  WHICH  THE  USER  FEELS  THE  SQUADRON  CAN  FUNCTION  EFFECTIVELY 
THE  TIME  OF  RESUPPLT  CAN  BE  ALTERED.  CURRENTLT.  REPLACEMENT 
SQUADRONS  ARE  SCHEDULED  TO  ARRIVE  AT  1B00.0  MINUTES  AND  3240.0 
MINUTES  INTO  THE  RUN  (MID-DAT  THE  FOLLOWING  DAT).  IF  REQUIRED. 

THE  INITIAL  AIRCRAFT  ARE  PROCESSED  DIRECTLT  THROUGH  THE  NODES 
IN  THIS  SECTION.  THET  GET  THEIR  INITIAL  VALUES  SET  IN  THIS 
AR'.A.  FOR  EXAMPLE.  NTOF  FOR  EACH  OF  THE  SIX  STSTEMS  BASED  ON 
A  PROBABILISTIC  ORAN  FROM  A  DISTRIBUTION  BASED  ON  THE  MEAN  TIME 
BETWEEN  FAILURE  (MTBF)  FOR  THAT  STSTEH.  A  UNIQUE  TAIL  NUMBER  IS 
ASSIGNED  AS  NELL  AS  A  SQUADRON  NUMBER  AND  A  PARKING  SPACE.  AIR¬ 
CRAFT  NHICH  DON’T  REQUIRE  MAINTENANCE  INITIALLY  GO  ON  QUICK 
REACTION  ALERT  (QRA)  OR  TO  THE  READ?  POOL.  THE  NUMBER  NHICH  GO 
ON  QRA  IS  USER  SELECTABLE  IN  THE  FORTRAN.  THE  PERCENTAGE  OF  A/C 
INITIALLY  OPERATIONALLY  READ?  (OR)  IS  USER  SELECTABLE.  THOSE  A/C 
NOT  INITIALLY  OR  GO  TO  MX. 

REPLACEMENT  SQUADRON  AIRCRAFT  GO  THROUGH  THE  SAME  INITIAL 
ASSIGNMENT  ROUTINE  BUT  ARE  THEN  BRANCHED  THROUGH  RESC  TO 
PICK  UP  A  PILOT  BEFORE  GOING  TO  APPROACH  FOR  LANDING. 

THE  INITIAL  NUMBER  OF  PILOTS  AND  THEIR  QUALIFICATIONS  (FLIGHT 
LEAO/QRA  QUALIFIED)  IS  USER  SPECIFIED  FOR  UP  TO  75  PILOTS  PER 
SQUADRON. 

NHEN  A  MISSION  IS  SCHEDULED,  SCHEDULER  HILL  OPEN  THE  READT  POOL 
GATE  IF  ENOUCH  AIRCRAFT  ARE  IN  THE  READ?  POOL  TO  FORM  A  FLIGHT. 

THREE  AIRCRAFT  OF  THE  CORRECT  CONFIGURATION  ARE  ASSIGNED  TO  A 
PARTICULAR  MISSION  NUMBER  AND  A  PILOT  OF  PROPER  QUALIFICATION 
IS  SCHEDULED  ACAINST  THE  AIRCRAFT.  MISSION  ATTRIBUTES  ARE  SET. 

THE  AIRCRAFT  AND  PILOT  THEN  PROCEED  TO  PILOT  PREFLIGHT. 

SQ1  A/C  GENERATION  ROUTINE 


CREATE, 0,0, ,50,1! 

ACT » . XX (54) .EQ.l ,NALl! 
ACT,, XX (58). EG.#, TERM! 
CREATE, 0,1800,, 50,1, 
ACT,,XX(50).EQ.i,NALli 
ACT, ,XX(50).EQ.0> TERM! 
CREATE, 0,3240,, 50, 1! 

ACT, ,XX<50). EQ.l, NAL1! 
ACT, ,XX(50).E8.0, TERM! 


INITIAL  A/C  GENERATION  FOR  SQl 


IF  DA?02  REPLACEMENT  SQl  REQUIRED 


IF  DA? 03  REPLACEMENT  SQl  REQUIRED 


413 

414 

415 
414 

417 

418 

419 
428 

421 

422 

423 

424 

425 
424 

427 

428 

429 
438 

431 

432 

433 

434 

435 
434 

437 

438 

439 
448 

44 1 

442 

443 

444 

445 
444 

447 

448 

449 
458 

451 

452 

453 

454 

455 
454 

457 

458 

459 
448 

441 

442 


MALI  ASSIGN , XX (54 ):XX(54) +1,11 

ACT  1 1 X  X  £54) . GT . XX  <  57 1 .AND. 

TNOU.LT. 8.1, TERM 
ACT i i XX (54) .CT . XX (57) tRESC i 
ACT i , i ASfll 1 

»  A/C  IDENTIFICATION  (SO, TAIL  8) 

i  AND  STATUS  CODES. 

ASQ1  ASSICN,XX(72l=XX(72)+li 

ATRIB(24)-fl,ATRIB(27)-8, 

ATRIB ( 1) =1  *  ATRIB(2) =USERF (18) , 

ATRIB (7) =USERF ( 137) , 

ATRIB( 12) =XX (59) , ATRIB ( 14) =0, ATRIB (15) =8, 
ATRIB(14I=0,ATRIB(17!=0,ATRIB(18I=0! 

i  A/C  STATISTICS  AND 

!  NEXT  TINE  OF  FAILURE,  BT  SYSTEM. 

ASSIGN, 

ATRI8(4)=0,  ATRIB (5 i =0 ,  ATRIB(4)=0, 

ATRIB (28) =0,ATRIB(29) =0,ATRIB(30>  =#» 
ATRI8(19)=US£RF(131),ATRIB(20)=USERF(132), 

ATRIB (21 ) =USERF ( 133) , ATRIB (22)=USERF ( 1341 , 

ATRIB  (23MUSERF  ( 135) ,  ATRIB  (24 )  =USERF  ( 134) ,  1 1 
ACT,, XX (58). EO. l.AND. 

TNOU.CT .0. i * RESCt  REPLACEMENT  A/C 

ACT,, BRAND. GT. XX (44), NX  IS i  A/C  IN  NAINT  INITIALLY 

ACT,,, ASCI!  GENERATED  OPERATIONAL  A/C 

, 

I 

',  INITIALIZE  CONFIGURATION 

ASCI  ASSIGN, ATRIB(3I=USERF(21), 

ATRIB(9)=1,  ATRIB ( 10) =1 , ATRIB ( 11 ) =0, 

XX(74)-XX(74)+l,li 

ACT,,XX(74).LE.XX(41),QRA:  SELECT  ORA  A/C  (FIRST  TINE  ONLY) 

ACT , , XX ( 74) .GT . XX (41 ) I  OPERATIONAL  AIRCRAFT 


FORH  A  FLIGHT  OF  THREE 
GATE  OPENED  BT  SCHEDULER 

ARP1  AWAIT (l) ,RDYPOOLl ,1?  READT  POOL  SOI 

ACT , f ATRIB ( 12).NE.XX(48) ,CAllt  IF  WRONG  CONFIG,  RETURN  TO  RDYPOOL 
ACT,,ATRIB(1Z).E0.XX(48I >ACCIi 
GA11  CLOSE, RDTPOOL1, 15 
ACT , , »ARPli 

ACCl  ASSIGN, XX(73)=XX(73)+1, 

ATRIBI43) =XX (49) ,ATRIB(44)=3, 

ATRIB(45)=XX(73) t ATRIB (44) =XX (47) , 
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1 


463 

ATRIB(47)*XX(97) tit 

ASSIGN  MISSION  INFO 

464 

ACT  v  t  XX  (73)  .CT.3iARPW 

RETURN  REST  TO  REACT  POOL 

465 

ACTt  tXX(73) •LE.3»GATlf 

466 

? 

467 

GAT1  CLOSEt  RDYPOOL1 » 1 1 

468 

ACT  8 » »ACS1J 

TO  MATCH  WITH  PILOT 

469 

{ 

478 

\ 

471 

\ 

472 

ACS1  QUEUE (3) » »» »APM1» 

TO  MATCH  OF  A/C  i  PILOTS 

473 

» 

474 

i 

475 

} 

476 

t 

477 

CREATE  » 75» 1 1 

INITIAL  PILOT  GENERATION  FOR  SQ1 

478 

ACT  r  *  XX (SB) .EO.tfASPi » 

479 

ACT  t  f  XX (50) .EQ.tffTERHI 

488 

f 

481 

» 

PILOT  ID  (SQ.IDf)  AND 

482 

t 

PILOT  ACTIVITY  STATISTICS. 

483 

ASPl  ASSIGN. XX170)=XKt78)+l»XX(71)=XK(71>+l. 

484 

ATRIB(l) =l»ATRIB(2l=XX{78( 

485 

ATRIB(3)=U$ERF(11>» 

486 

ATRIB(4) =8»ATRIB (5>  =8» 

487 

ATRIB(6)=8.ATRIB(11):0. 

488 

ATRIB(12)=8. 

489 

ATRIB(8)=0.ATRIB(9)=0.1! 

498 

ACT..XX171) .E0.75.8A1! 

491 

ACT  > • XX (71) ,LE.XX(61) iPORPi 

492 

ACT. .XX (711 ,LE. XX (581 .PL1! 

493 

ACT . . .TERN! 

494 

• 

f 

495 

0A1  ASSIGN^  XX(71)=#»XX<56) =tf»l» 

AUTO  RESET  OF  COUNTER 

496 

ACT  t » XX (58) - EQ - 75»  PL1 f 

497 

ACT » ? » TERHt 

498 

» 

499 

5 

588 

PL1  QUEUE  (Z) »»  mAPHIi 

TO  A/C/PILOT  MATCH 

5*1 

i 

582 

APH 1  HATCH 1 48 » PL  1 /APLT » ACS l / ASAC i 

ASSIGN  A/C  TO  PILOTS 

583 

» 

584 

» 

5*5 

» 

586 

» 

587 

i 

588 

» 

SQ2  A/C  GENERATION  ROUTINE 

5*9 

• 

t 

518 

1 

511 

CREATE. 8>. 8881.. 58.1! 

INITIAL  A/C  GENERATION  FOR  S02 

512 

ACTnXX(51).E8.1.NAl2! 

INITIAL  A/C  GENERATION  FOR  S02 


513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 


ACT i i XX (51 1 .EQ.0iTERHi 
CREATE.0tl800.000bi50.li 
ACT, ,XX(51) .EQ. l.«AL2» 
ACT  t . XX (51 ) .EQ. 0. TERH» 
CREATE. 0,3240.0001,, 50. ii 
ACT , , X  X (51 ) . E9 . 1 , NALZi 
ACT,, XX (51). £8.0, TERM! 


IF  DAT02  REPLACEMENT  S82  REQUIRE 


IF  DA <03  REPLACEMENT  SQ2  REQUIRE 


NAL2  ASSIGN, XX (56) =XX (56) +1 , 1 » 

ACT, , XX (56) .GT. XX (571. AND. 

TNON.LT.0.1 »TERM» 

ACT, , XX (56) ,GT.XX(57! ,RESCi 
ACT, , ,ASQ2i 


A/C  IDENTIFICATION  (SQ, TAIL  I) 
AND  STATUS  CODES. 


ASQ2  ASSIGN, XX (72) =XX (72) +1 , 

ATRIB(26)=0, ATRIB (27 1=0, 

ATRIB(l) =2,  ATRIB (2) =USERF ( 18) , 

ATRIB(7) =USERF (137) , 

ATRIB(12)=XX (59) • ATR I B  X 14) =0, ATRIB (151 =0, 
ATR I  B< 16) =0, ATRIB (171=0, ATRIB ( 18) =0! 


A/C  STATISTICS  AND 

NEXT  TIME  OF  FAILURE,  BT  SYSTEM. 


ASSIGN, 


ATR!B(4)=0,  ATRIB(5>=0,  ATRIB(6)=0, 
ATRIB(28)=0,ATRIB(29)=0, ATRIB (301=0, 

ATRIB(19)=USERf (131 ) , ATRIB (20) =U$ERF( 132) , 
ATRIB(21)=USERF(133) ,ATRIB(Z2)=USERF(134) , 

ATRIB(23I =USERFi 135) ,ATRIB(24l=UStRF<136) , 1 i 
ACT, ,XX(51).E0. l.AND. 

TNOW.GT.0.1,RESCi  REPLACEMENT  A/C 

ACT,, BRAND. GT.XX(64) .MXISi  A/C  IN  MAIN!  INITIALLY 
ACT , , , ASC2 i  GENERATED  OPERATIONAL  A/C 


i  INITIALIZE  CONFIGURATION 

ASC2  ASSIGN, ATRIB (3) =USERf (21 > , 

ATRIB (9) =1 ,  ATRIB( 10) =1,ATRIB( 111=0, 

XX (75) =XX(75)+1,15 

ACT, , XX (75) .LE.XX(61),8RAi  SELECT  ORA  A/C  (FIRST  TIME  ONLO 

ACT,,XX(75).GT.XX(61)i  OPERATIONAL  AIRCRAFT 


FORM  A  FLIGHT  OF  THREE 
GATE  OPENED  BT  SCHEDULER 
READY  POOL  SQ2 


ARP2  AUAIT (4) ,RDYP00L2, 1 ? 
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I 


1 


543 

ACT » r ATRIB ( 12) ,NE.XX(48) ,GA12i 

IF  WRONG  CONFIG,  RETURN  TO  RDTPOOL 

544 

ACT.  .ATRIBUZ)  .£8.0(48)  iACC2i 

545 

CA12  CL0SE.RDTP00L2.li 

544 

ACT...ARP2! 

547 

1 

548 

ACC2  ASSIGN. XX (73!  =X1U73) +1 , 

549 

ATR IB (43) =XX (49) .ATRIB (44) =3. 

571 

ATRIB445) =XX (73) .ATRIB(44) =XX(47) . 

571 

ATRIB(47) =XX(97)  .If 

ASSIGN  MISSION  INFO 

572 

ACT.. 11(731. CT.3.ARP2i 

RETURN  REST  TO  READT  POOL 

573 

ACT i *  XX (73) . LE.3.GAT2J 

574 

» 

575 

GAT2  CL0SE.RBTP00L2.li 

574 

ACT . > .ACS2» 

TO  MATCH  WITH  PILOT 

577 

i 

578 

i 

579 

1 

588 

ACS2  QUEUE  14), ,..APN2i 

TO  MATCH  OF  A/C  4  PILOTS 

58! 

! 

582 

\ 

583 

t 

584 

• 

» 

585 

CREATE.0, .0001, .75,1! 

INITIAL  PILOT  GENERATION  FOR  SQ2 

584 

ACT,,n(5U.EQ.l,ASP2i 

587 

ACT,, X*(51) .EQ.0. TERM! 

588 

* 

» 

589 

f 

PILOT  ID  (SO. ID#)  AND 

59i 

i 

PILOT  ACTIVITY  STATISTICS. 

591 

ASP2  ASSIGN.XX(7«)=XX(70)+l,XX(71)=XX(71)+l» 

592 

ATRIB(l) =2,ATRIB(Z) =XX(70) 

, 

593 

ATRIB(3>  =USERFUl) , 

594 

ATRIB(4)*0, ATRIB (51 =0, 

595 

ATR IB (4) =0. ATRI B ( 1 1 ) =0 » 

594 

ATRIB (12) =0. 

597 

ATRIB (8 ) =0, ATRIB (9) =0 , 1 i 

598 

ACT  ?  t  XX (71) .EQ.75.QA2i 

599 

ACT»,XX(71) .LE.XI(41) .PQRPi 

40# 

ACT  rrXX(71).LE.XX (58) ,PL2f 

401 

ACT,,, TERN i 

402 

i 

403 

QA2  ASSIGN, XX (71) =0, XX (54) =0, 1 i 

AUTO  RESET  OF  COUNTER. 

404 

ACT, ,XX(58) .EQ.75.FL2i 

405 

ACT,,, TERN! 

404 

i 

407 

i 

408 

PL2  QUEUE(5)»,»,APM2i 

TO  A/C/PILOT  MATCH 

409 

i 

410 

APM2  MATCH, 48, PL2/APLT.ACS2/ASAC! 

ASSIGN  A/C  TO  PILOTS 

411 

t 

r 

412 

I 
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re* 


%ir  i  *  >.-■•••'-  .•»• 


613 

614 

615 

616 

617 

618 
619 
6ZI 
6Z1 
622 

623 

624 

625 

626 
627 
626 
629 
638 

631 

632 

633 
63* 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 
651 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 


SQ3  A/C  GENERATION  ROUTINE 


CREATE. 0,. 0002, >50. 1! 

ACT  t  r  XX (52) .EQ.l,NAL3i 
ACT, ,XX(52).EQ.0, TERM! 
CREATE, 0, 1800.0002, ,50, 1! 
ACT, ,XX (52> .EQ.l ,NAL3I 
ACT , , XX  <52) .£3.0, TERN! 
CREATE, 0,3240. 0002,, 50,11 
ACT,,XX(52).E0.1,NAL3i 
ACT, ,XX(52).EQ.0, TERN! 


INITIAL  A/C  GENERATION  FOR  SQ3 


IF  DAY02  REPLACEMENT  S03  REQUIRE 


IF  DAI03  REPLACEMENT  SQ3  REQUIRE 


NAi.3  ASSIGN ,XX(56)=XXC5ol-»l,lr 

ACT , ,XX (56) .GT. XX157) .AND. 

TNOW.LT. 0.1, TERM! 

ACT , , XX (56) .GT . XX (57) »R£$C! 

ACT , , ,ASQ3! 

A/C  IDENTIFICATION  (SQ.TAIL  01 
AND  STATUS  CODES. 

ASQ3  ASSIGN, XX (72) =XX (72) ^ 1 , 

ATRI8(26i z0> ATRIB (27) =0, 

ATRIB(l)-3,  ATRIB(2) =USERF (18) , 

ATRIB47) =U££RF (137) , 

ATRIB(iZ) =XX (59) , ATRIB (14) =0,ATRIB( 151=0, 
ATRIB(i6i=0,f»TRIB(17)=0,ATRIfa(181--0i 

A/C  STATISTICS  AND 

NEXT  TIME  OF  FAILURE,  BY  SYSTEM. 

ASSIGN, 

ATRIB14! -0,  ATRIB(5)=0,  ATRIB(6)=0, 

ATRIB (28 1 =0 , ATRIB ( 29) =0 , ATRIB (301=0, 

ATRIB ( 19) =uSERF (131 1 ,ATRIB (20) =USERF (132) , 

ATRIB (21 1 =USERF (133) , ATRIB (22) =USERF(134) , 
ATRIB(23)=USERF(135) .ATRIB (24) =USERF (136! ,15 
ACT,, XX (52). EQ.l. AND. 

TNOW.GT.0.1,RESC,  REPLACEMENT  A/C 

ACT , tDRANO.GT.XX'iM ,MXIS!  A/C  IN  MAINT  INITIALLY 
ACT , , , ASC3,  GENERATED  OPERATIONAL  A/C 


!  INITIALIZE  CONFIGURATION 

ASC3  ASSIGN , ATRIB (3) =USERF  (21) , 

ATR I B (9) =1 ,  ATRIE(10)  =  1,ATRIB(11)=0, 

XX(76)=XX(76)+l»li 

ACT,, XX (76) .LE.XX(61) ,QRA!  SELECT  QRA  A/C  (FIRST  TIME  ONLY) 
ACT , ,XX (76) .GT.XX (61) ,  OPERATIONAL  AIRCRAFT 
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FORM  A  FLIGHT  OF  THREE 


6*3 

644 

665 

666 
667 
648 

669 

678 

671 

672 

673 

674 
475 

676 

677 
478 

679 
688 
681 
682 

483 

684 

685 

484 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 
780 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 


GATE  OPENED  8 Y  SCHEDULER 

ARP3  AWAIT (7) »RDTPOOL3» 1 »  REACT  POOL  SOS 

ACT i ,ATRIB(12) .NE.XXI48) iGA13i  IF  WRONG  CONFIG.  RETURN  TO  RDTPOOL 
ACT,, ATRIB (12)  .EQ.XK(48)  .ACCS! 

GA13  CL0SE.RDTP00L3.1. 

ACT...ARP3! 

ACC3  ASSIGN. XX (73) =XX (731+1 . 

ATRIB(43)=XX{49) » ATRIB (441 =3» 

ATRIB(45)-n<73).ATRI8(44)-TX<47), 

ASSIGN  MISSION  INFO 
RETURN  REST  TO  REACT  POOL 


TO  MATCH  WITH  PILOT 


TO  MATCH  OF  A/C  £  PILOTS 


INITIAL  PILOT  GENERATION  FOR  SQ3 


PILOT  ID  (SO. ID#)  AND 
PILOT  ACTIVITY  STATISTICS. 
ASPS  ASSIGN. XX(70)=XX<7BH-l,XX(715  =  XX(7l)  +  l. 

ATRIBl 1 ) -3 .ATRIB (2>  =XX (70} , 

ATRIB(3)=ilSERF(ll), 

ATRIB (41=0. ATRIB (5) -0. 

ATRIB (6) =0.ATRIB (111=0. 

ATRIB ( 12) =0. 

ATRIB (8) =0* ATRIB (9) =0. 1 » 

AC  T..XX<71) .Efl.75.8A3J 
ACT.  .XX(71)  .LE.  XK611.  PORPi 
ACT. »XX(71) .LE.XX(58> ,PL3t 
ACT... term; 


ATRIB(47) =XX (97) . 1 » 
ACT, .11(731 .GT.3.ARP3! 
ACT. .IK (73). LE. 3, GATS! 

GAT3  CL0SE.RDTP00L3.1! 

ACT . , .ACS3! 


ACS3  QUEUE ( 9 ) » » » » APH3 ! 


CREATE. 0,. 0002, ,75,1! 
ACT»,XX(5Z) .EQ.I.ASP3! 
ACT, ,XX(52).EQ.0, TERM! 


QA3  ASSIGN, XX (71 ) =0, XX (56) =0, 1 »  AUTO  RESET  OF  COUNTER 

ACT,, 11(58). EQ. 75, PL3! 
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ACT... tern; 


PL3  QUEUE (8) » r  f » APM3i 


APM3  HATCH. 48 .PL3/ APLT . ACS3/ASAC ! 


TO  A/C/PILOT  HATCH 


ASSIGN  A/C  TO  PILOTS 


CREATE .  0>. 0003. .50.1! 

ACT  t » XX (53) .EQ.1.NAL4! 

ACT » *  XX (53) .EG. 0. TERN! 
CREATED.  1800. 0003.. 50.1! 
ACT».XK53).EQ.1.NAL4! 

ACT . .  XX  (53)  .EQ.0.TERH! 
CREATE .0.3240, 0003.. 58. I! 
ACT».XX(53i.EG.l»NAL4» 

ACT . .XX(53) .EG.0.TERH! 

! 

NAL4  ASSIGN. XX (56) :XX(56)+l»i! 

ACT i » XX (56) .GT.XX(57) .AND. 

TNOH.LT.0. i.TERHt 
ACT. . XX (56) .GT. XX (57) .RESC! 
ACT . . . A3Q4 • 


SQ4  A/C  GENERATION  ROUTINE 


INITIAL  A/C  GENERATION  FOR  SQ4 


IF  DA (02  REPLACEHENT  SQ4  REQUIRE 


IF  DA (03  REPLACEHENT  SQ4  REQUIRE 


A/C  IDENTIFICATION  (SO, TAIL  I) 
AND  STATUS  CODES. 


ASQ4  ASSIGN. XX(72)=XX(72)+t, 

ATRIB(Z6) =0.ATRIB(27)=0> 

ATRIB(1)=4.  ATRIB(2) -USERFU8! . 

ATRIB(7>  =USERF (137) » 

ATRI8(12)=XX<59).ATRIB(14)=0,ATRIB(15)=0. 

ATRIB!16)=0.ATRIB(17)=0.ATRIB(18>=0! 

A/C  STATISTICS  AND 

NEXT  TIHE  OF  FAILURE.  B(  STSTEH. 

ASSIGN. 

ATRIEI4) =0.  ATRIB (5 . =§ .  ATRIB16)=0> 

ATR  IB (28 )=#. ATR IB (29) =0.ATRIE(30) :0. 

ATRIB ( 19 )=USERF (131) .ATRIB (20) =USERF( 132) . 
ATRIB(21)=USERF(133) .ATRIB (22) =USERF (134) , 

ATR 1 B ( 23 ) =USERF ( 1 35 ) . ATR I B ( 24 ) =USERF ( 1 36 ) . 1 1 
ACT . >  XX (53) .EG. 1 .AND. 

TNOH.GT. 0.1 .RESC!  REPLACEHENT  A/C 

ACTmORAND.CT.XX(64)»HXIS!  A/C  IN  HAINT  INITIALLT 
ACT...ASC4!  GENERATED  OPERATIONAL  A/C 


763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 


i  INITIALIZE  CONFIGURATION 

ASC4  ASSIGN. ATRIBC3) =USERF (21). 

ATRIB49) =1,  ATRIB(10)=ltATRIB(ll)=0. 
n(77)=XX(77»+l,l. 

ACT . .XX477) .LE.XX (61) .ORA1  SELECT  ORA  A/C  (FIRST  TIME  ONLY) 
ACT . . XX ( 77) .GT.XX(61!i  OPERATIONAL  AIRCRAFT 


FORM  A  FLIGHT  OF  THREE 
GATE  OPENED  BT  SCHEDULER 

ARP4  AWAIT(10),RDYPOOL4,li  READY  POOL  SQ4 

ACT. .ATRIB(12) .NE.XXI48) >GA14i  IF  WRONG  CONFIG,  RETURN  TO  RDTPOOL 
ACT,,ATRIB(12).E0.n(48l  ,ACC4! 

GA14  CL0SE.RDYP00L4.lt 
ACT . , . ARP4 ! 

ACC4  ASSIGN, XX (73) =XX (73)  +  1, 

ATRI B (431 =XK (495 >ATRIB(44)=3, 

ATRIB(45)=XX(73) »ATRIB(46) =XX (47) , 

ATR IB (47) =XXi97) .15  ASSIGN  MISSION  INFO 

ACT » . XX (73) .GT.3.ARP4!  RETURN  REST  TO  READY  POOL 

ACT . . XX (73) .LE.3.GAT4! 

GAT 4  CLOSE » RD YP00L4 .15 

ACT,,,ACS4>  TO  MATCH  WITH  PILOT 


ACS4  9UEUEU2' ,,,  ,APM41  TO  MATCH  OF  A/C  l  PILOTS 


CREATE . 0 . . 0003 ..73.1.  INITIAL  PILOT  GENERATION  FOR  S04 

ACT . rXX (53) .Ed. 1.ASP4! 

ACT, ,XX(53).E8.0, TERM! 

PILOT  ID  (SQ. ID#)  AND 
PILOT  ACTIVITY  STATISTICS. 

ASP4  ASSIGN, XX(7il=XX(70)+I.XX(71)=XX(71)+l, 

ATRIBU)=4.ATRIB(2)=XX(70) . 

ATRIB43) =USERF (11) » 

ATRIB(4)I0,ATRIB(5)=0, 

ATRIBI6) =0,ATRIB ( 1 l ) =# . 

ATRIB  < 12) =0. 
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813 

314 

815 

818 

817 

818 

819 

820 
821 
822 

823 

824 

825 
828 

827 

828 

829 

830 

831 

832 

833 

834 

835 
838 

837 

838 

839 

840 

841 

842 

843 

844 

845 
848 

847 

848 

849 

850 

851 

852 

853 

854 

855 
858 

857 

858 

859 
880 
881 
882 


ATRIB(8)=0,ATRIB(9)=0»li 
ACT. tXX (71) .EQ.75rQA4t 
ACT. tXX(71> .LE.XX(61> iPQRP. 
ACT. . XX (71 ) .LE.XX (S8> .PL4. 
ACT  m  term; 

QA4  ASSIGN. XX (71)=0.XX(58)=0.1i 
ACT . . XX (SS) .EQ.75,PL4» 

ACT . . .TERN* 


PL4  QUEUE ( 1 1 ) . . . . APN4 . 

APH4  HATCH. 48.PL4/APLT, ACS4/ASAC i 


AUTO  RESET  OF  COUNTER 

TO  A/C/PILOT  MATCH 
ASSIGN  A/C  TO  PILOTS 


S85  A/C  GENERATION  ROUTINE 


CR£ATE,0,.0004»,50,l! 

ACT » . XX  (54)  .EQ.1.NAL5, 
ACT,. XX(54).EQ.0, TERM! 
CREATE. 0, 1800.0004, ,50,11 
ACT » > XX  (54 )  .EQ.1,NAL5! 
ACT, ,  X  X  <  54 1  .EQ,0»TERH> 
CREATE, 0,3240. 0004,, 50, II 
ACT , , XX (54) .EQ. 1 .NAL5? 
ACT,  ,XX(54).EQ.0,  TERM! 


INITIAL  A/C  GENERATION  FOR  S85 


IF  DA 702  REPLACEMENT  SQ5  REQUIRE 


IF  OAT03  REPLACEMENT  SQ5  REQUIRE 


NAL5  ASSIGN, XX (58) =XX (56»+l . 1 » 

ACT , ,XX(58) .GT. XX (57) .AND. 

TNOH.LT. 0.1, TERM! 

ACT,* XX (58) .GT. XX (57) ,RESC» 

ACT , , ,ASQ5i 

A/C  IDENTIFICATION  ISO, TAIL  t) 
AND  STATUS  CODES. 

ASQ5  ASSIGN, XX(72)=XX(72)+i, 

ATRIB(28)=0,ATRIB<27)=0, 

ATRIB ( 1 ) =5,  ATRIB(2)=U$ERF(18I , 

ATR!B(7)=USERF(137), 

ATRIB ( 127  =XX (59) , ATRIB ( 1 4) =0, ATRIB (151=0, 

ATRIB ( 18) =0, ATRIB ( 17) =0, ATRIB! 18) =0, 

i 

I  A/C  STATISTICS  AND 

i  NEXT  TIME  OF  FAILURE,  B7  SYSTEM. 

ASSIGN, 

ATRIB(4)=0>  ATRIB(5)=0,  ATRIB(8) =0, 


23 


1 . . 


,vrf' 


863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 
883 
684 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 


ATRIB ( 28) =0. ATRIB! 29) =0. ATRIB (30) =0. 

ATRI8U9)  =USERF(131) ,ATRIB(20)  =USERF  (132)  t 
ATRIBI21) =USERF  ( 133)  , ATRIBI22)  -USERFU341 , 

ATRIB (23) =USERF( 135) r ATRIB (24) =USERF(136)  .1! 

ACT  r  t  XX (54) .EQ.l.AND. 

TNOW.CT.0. l.RESCi  REPLACEMENT  A/C 

ACT.  rDRANO.CT.XX  (64)  .HXIS*.  A/C  IN  HAINT  INITIALLY 
ACT...ASC5J  GENERATED  OPERATIONAL  A/C 

INITIALIZE  CONFIGURATION 

ASC5  ASSIGN. ATRIB(3)=USERF(21), 

ATRIB(9)=l,  ATRIB 411)  =  1 .ATRIB (11 ) =0» 

KX(78)=XK(78>+l.i; 

ACT ?tXX(78).LE.XX(61) >QRA.  SELECT  ORA  A/C  (FIRST  TIME  ONLY! 

ACT, »XI(78).GT. 0(61)5  OPERATIONAL  AIRCRAFT 


FORM  A  FLIGHT  OF  THREE 
GATE  OPENED  BY  SCHEDULER 

ARP5  AWAIT (13) .RDYPOOL5. 1 5  READY  POOL  S05 

ACT. .ATRIB (12 ) . NE . XX (48) . GA155  IF  WRONG  CONFIG.  RETURN  TO  RDYPOOL 
ACT, ,ATRI8(12). £0. XX (48), ACC55 
GA15  CL0SE.R0YP0QL5.15 
ACT,,,ARP55 


ACC5  ASSIGN. 0(731=0 (73! +1. 

ATRIB (43) =XX (49) .ATRIB (44) =3. 

ATRIB (45) =0(73)  ,ATRIB(46)=XX(47) . 


ATRIB (47) =XX(97) .1. 

ACT . . XX (73) .GT .3. ARP5. 
ACT . .XX (73) .LE. 3.GAT5. 

GAT5  CL0SE.RDYP00L5.lt 
ACT . . .ACS55 


ASSIGN  MISSION  INFO 
RETURN  REST  TO  READY  POOL 


TO  MATCH  WITH  PILOT 


ACS5  aUEUE(15)»...APH5i 


TO  MATCH  OF  A/C  i  PILOTS 


CREATE. 0. .0004, ,75.1!  INITIAL  PILOT  GENERATION  FOR  SQ5 

ACT . . XX (54) .E0.1.ASP55 
ACT,, 0(54). £0.0, TERM! 


. 


913 

914 

915 

916 

917 

918 

919 

m 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 


PILOT  ID  (SQtlDi)  AND 
PILOT  ACTIVITY  STATISTICS. 

ASP5  ASSIGNfXXi70)=XX<70)+lrXX(71)=XX{7mi» 
ATRIB(1)=5.ATRIB(Z)=XX(70). 

ATRIB(3)=USERF(ll)i 
ATRIB (41 =0i ATRIB (5) =0» 

ATRI8(4)=0iATRIB(lll=0t 

ATRIB(12)-0i 

ATRIB(8)=0.ATRIB(9l=0tli 

ACT.,XX(71).E8.75.flA5( 

ACTnXX(7l)  .LE.XX161 1  tPORP! 

ACTiiXX(71).LE.XX(58) tPL5! 

ACT  1 1 (TERN! 

3A5  ASSIGN)  XX  (71)  =0i  XX  (56) -0di  AUTO  RESET  OF  COUNTER 

ACT i >  XX (58) .£Q.75(PL5! 

ACT i ( (TERN! 


PL5  QUEUE ( 1 4 ) ( ( ( ( APN5 !  TO  A/C/PILOT  NATCH 

APN5  HATCH(48rPL5/APLT(ACS5/ASAC!  ASSIGN  A/C  TO  PILOTS 


S86  A/C  GENERATION  ROUTINE 


CREATE(0( .0005( (50(1!  INITIAL  A/C  GENERATION  FOR  SQ6 

ACT « (XXI55) ,EQ. 1(NAL4! 

ACT((XX(55).EG.0(TERN! 

CREATE(0( 1800. 0005( (50(1!  IF  DAI02  REPLACENENT  SQ6  REQUIRE 

ACT((XX(55).EQ.1(NAL6! 

ACT ( ( XX (55) .EQ .0( TERM! 

CREATE(0 (3240. 0005 ((50d!  IF  DAT03  REPLACENENT  SQ6  REQUIRE 

ACT((XX(55).EQ.1(NAL6! 

ACT((XX(55),EQ.0(TERN! 

i 

NAL6  ASSIGNrXX(56)=XX(56)+2tli 

ACT((XX(56) .GT. XX (57). AND. 

TNON.LT.0.1(TERN! 

ACT o XX (56! .GT. XX (57) tRESCf 
ACT ( ( (ASQ6! 

!  A/C  IDENTIFICATION  (SQtTAIL  0) 

!  AND  STATUS  CODES. 

ASQ6  ASSIGN(XX(72)=XX(72)+1( 

ATRIB(26)=0(ATRIB(27)=0( 

ATRIB ( i ) =6(  ATRIB(2)=USERF(18)( 
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963 

964 

965 

966 

967 

968 

969 
97# 

971 

972 

973 

974 

975 

976 

977 

978 

979 
98# 

981 

982 

983 

984 

985 


ATRIB47I =USERF(137l i 

ATRiB(12)-XX(59)>ATRIBU4)-#iATRIB(15)-#f 

ATRIB(16)=0.ATRIB(17)=0.ATRIB(18>=#i 

i  A/C  STATISTICS  AND 

i  NEXT  TINE  OF  FAILURE r  B 1  SYSTEM. 

ASSIGNi 

ATRIE (41=0i  ATRIB(5)=0.  ATRIB<6)=0. 

ATRIB (28) =0. ATRIB(29) =0. ATRIB (30) =0. 
ATRIB(191-USERF(131).ATRIB(2#»=USERF(132)» 
ATRIB(21)IUS£RF(133) iATRIB(22)=USERF(134) » 

ATRIB (23) -USERF1135) . ATR I B (24) =USERF (136) . 1 i 
ACT  >  t  XX (55) .EQ.l.AND. 

TNOW.GT.0.1.RESC1  REPLACEMENT  A/C 

ACT  1 1 DRAND .  GT .  XX (64) .MX  IS!  A/C  IN  HAINT  INITIALLY 
ACT  . 1 .ASC61  GENERATED  OPERATIONAL  A/C 

! 

1  INITIALIZE  CONFIGURATION 

ASC6  ASSIGNi ATRIB 13) :USERF (21 )> 

ATRIB(9)=1.  ATRIBU0)  =1 .  ATR  IB  ( 1 1)  =0, 

XX(79)=XX(79)+1,U 

ACTi iXX (79) .LE.XXI61) iQRA!  SELECT  QRA  A/C  (FIRST  TIME  ONLY) 
ACTi,XX(79).GT.XX(61)i  OPERATIONAL  AIRCRAFT 


986 

987 

988 

989 
99# 

991 

992 

993 

994 

995 

996 

997 

998 

999 
18#« 
l#fl 
1002 

1003 

1004 
11(5 
1106 

1007 

1008 
100? 
1(1# 
1111 
1012 


FORM  A  FLIGHT  OF  THREE 
GATE  OPENED  BT  SCHEDULER 

ARP6  AHAIT(16)iRDTP00L6iti  READY  POOL  SQ6 

ACT  *  *  ATRIB (12) .NE.XX(48) 1GAI61  IF  WRONG  CONFIGi  RETURN  TO  RDYPOOL 
ACT  >  f ATRIB (12) .EQ,XX(48)tACC6! 

GA16  CLOSE.RDYPOOL6ili 
ACT  1 1 iARP6! 

ACC6  ASSIGN. XX (73) =XX (73) + 1 , 

ATRIB(43)=XX(49).ATRIB(44)=3. 

ATRIB (45) =XX (73) .ATRIB(46) =XX (47) . 

ATRIB(47)-XX(97) ill  ASSIGN  MISSION  INFO 

ACT* » XX (73) ,GT,3iARP6J  RETURN  REST  TO  READ?  POOL 

ACTuXX(73).LE.3iGAT6! 

GAT6  CLOSE.RDYPOOL6.il 

ACT...ACS61  TO  MATCH  WITH  PILOT 


ACS6  QUEUE(18),,,,APM6( 


TO  MATCH  OF  A/C  i  PILOTS 


INITIAL  PILOT  GENERATION  FOR  S06 


1113 

1114 
1015 
1116 
1117 
1013 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 


CREATE»0t .0005. i 75i 1 1 
ACT  1 1 H (55) .EO. 1 » ASP6S 
ACT » >XX (55) .EO.0iTERy‘ 

PILOT  ID  (SQ,ID0!  AND 
PILOT  ACTIVITY  STATISTICS. 

ASP6  ASSIGN.  II  I70)=X2  (701  +  1,  XX  (71)  =XXI71i  +  l» 
ATRIB(1)=6,ATRIB(2)=XX(70) . 

ATRIB (3) =USERF ( 1 1 ) » 

ATRIB14) =0.ATRIB(5)=0. 

A7RIB(6)=0,ATRIB(ll)=0, 

ATRIB (121=0. 

ATRIB<8)=0>ATRIB(9)=0,1,' 

ACT,»XX171).EQ.75»9A6» 

ACT.  .2X171)  .LE.XX(61),PQRP» 

ACT.. 22(71). LE. 2X158). PL6i 
ACT . . »  term; 

’ 

QA6  ASSIGN. XX (71 1=0. 22 (56) =0.1!  AUTO  RESET  OF  COUNTER. 

ACT. , 22(58) .it. 75, PL6i 
ACT,,. TERR. 


PL6  3UEUE(17),,,,APR6i  TO  A/C/PILOT  HATCH 

1 

APH6  HATCH, 48, PL6/APLT,ACS6/ASACi  ASSIGN  A/C  TO  PILOTS 


ROUTINE  TO  TRANSFER  PILOT 
ATTRIBUTES  TO  GLOBAL  VARIABLES 
APLT  ASSIGN, X2(S0)=ATR!8(1),  XX(81)=ATRIB(2), 

22!82)=ATRIB(3),  XX (83) =ATRIB ( 4) , 

XX(84)=ATRIB(5),  22<85)=ATRIBI6), 

22(86) =ATRIB(7>,  XX (87) =ATRIB(8) , 

XX(88)=A7RI8(9! ,  XX (89) =ATRIB( 10) , 
XX(90)=ATRIB(ll),XX(91)=ATRIB(12)i 
TERMINATE! 


ROUTINE  TO  TRANSFER  PILOT 
ATTRIBUTES  FROH  GLOBAL 
VARIABLES  TO  A/C 

ASAC  ASSIGN, ATRIB(31) =XX (80) . ATRIB (32) =2X (81 ) » 

ATRIB (33 1 =22 (82) .ATRIB (34 1 =22(83! . 

ATRIB (35) =XX (84) ,ATRIB(36)=22(85) , 
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1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 


ATRIB (37)=XX(86> > ATRIB (381 =XX 187) • 
ATRiB(39)  =XX  (881  »ftTR  IB  (401  =<11(89)1 

ASSIGN.  ATRlB(4ll=n(90). 

ATRIB(42)=X*<91>.!i 


ACT..TNOW.GE.  1440.0.  AND. 
ATRIB (41 1 .EQ«  0.AND. 
ATRIB (42) .EQ.0.QR. 
TNOW.GE. 2880.0. AND. 
ATRIB (42) .EO.0.PPFT* 


ACT. .ATRIB (42) .NE.0.CL06I 
ACT. .ATRIB (41 1.NE.0.CL05! 
ACT. .ATRIB(40) .NE.0.CL04! 

act.mPpft; 


ROUTINE  TO  COLLECT  STATISTICS 
ON  THE  AMOUNT  OF  TINE  A  PILOT 
HAS  ON  THE  GROUND  BETWEEN 
FLIGHTS.  TO  VALIDATE  FLIGHT 
PLANNING  AND  BRIEFING  TINE 
AVAILABILITY . 


BRANCH  AROUND  STAT  ON  1ST  NSN 
OF  DAY  ELSE  GO  TO  STAT  NODE 
FOR  TINE  ON  GROUND  FOR  PILOT 
BETWEEN  FLIGHTS. 


BRANCH  FOR  FIRST  TIME  THRU.DAY01 


CL06  COLCT , I NT VL ( 42) . P I LOTCRHDT IMEB3 . . 1 5  DAY  03 
ACT...PPFT! 

CL05  COLCT » INTVL <41 ) .PI LOTCRNDT I ME02 . . 1 5  DAY  02 
ACT...PPFT. 

CL04  COLCT , INTVL(40! .PILOTGRNDTIME01 ..  1  >  DAY  01 
ACT,.,PPFTi 
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A. 1.2  Pilot  Creation  and  Aircraft/Pilot  Match 


Fig  A*l*3  Creation  Common  Area 
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•  REPLACEMENT  A/C  AND  PILOT  INITIALIZATION  AND  ORA 

WHEN  RESUPPLY  IS  SCHEDULED.  AT  THE  DESIGNATED  TIME  THE  A/C 
ARE  CREATED  AND  ROUTED  TO  RESC  WHERE  THE  PILOT  IS  INITIALIZED  AND 
PLACED  IN  THE  A/C.  THE  AIRCRAFT  THEN  PROCEEDS  TO  APPROACH  TO 
OBTAIN  THE  RUNWAY  AND  LAND. 

BECAUSE  THE  REPLACEMENT  PILOTS  ARE  CREATED  ON  A  ONE  FOR  ONE  BASIS 
WITH  REPLACEMENT  A/C  THE  USER  PROVIDED  NUMBER  OF  PILOTS  PER  SQUAD¬ 
RON  DOES  NOT  HOLD  TRUE  AFTER  RESUPPLY.  TO  ATTEMPT  TO  CONFORM  TO 
THE  USERS  INTENT.  THE  RATIO  OF  PILOT  QUALIFICATION  STATUS  (FLIGHT 
LEAD.  ETC.l  IS  MAINTAINED. 

AIRCRAFT  ASSIGNED  TO  ORA  ARE  STORED  IN  THE  AIRCRAFT  ORA  ANA IT  NODE 
PILOTS  SELECTED  FOR  ORA  ARE  PLACED  IN  THE  PILOT  ORA  MODE  FILE. 

ROUTINE  TO  SET  UP  ATTRIBUTES  OF 
PILOTS  LANDING  WITH  A  REPLACE¬ 
MENT  SQUADRON 

RESC  ASSIGN. XX (70) SXX (701+1, 

XX(71)=XX(71)+1.ATRIB(31)=ATRIB(1) . 

ATRI8(32!=XX(70) .ATRIB(33)=USERF(11). 

ATRIB(34)=0.ATRIB(35)-0iATRIB(3i)-0. 

ATRIB(38S-0.ATRIB(39l=0ilI 


ASSIGN. 

ATRIB(41)=0,ATRIB(42)=0, 

ATRIB(8)=TNON-50.1i 
ACT » » X  X ( 7 1 ) .EQ.50.RESR) 

ACT. »XX (71) .LE.XXI57) > APPR. 

ACT.,, TERM!  REPLACEMENT  SQ  A/C  TO  TERM 

RESR  ASSIGN, XX(71I=0.XX(56)=0, If 
ACr,,XX(57).Efl.50.APPR,' 

ACT,,, TERM I 


PQRP  AHAIT(20),PILOTQRA.li  QRA  PILOT  HOLDING  AREA 

TERMINATE', 

QRA  A«AITU9),QRAP00L,1J  QRA  A/C  HOLDINC  AREA 

TERMINATE? 


, 


Fig  A*2«l  Replacement  Squadron  Processing  and  Quick  Reaction  Alert  (QRA) 


1134 

1137 

1138 

1139 
1148 

1141 

1142 

1143 

1144 

1145 
1144 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 


i  INITIALIZATION  OF  AIRCRAFT  IN  MAINTENANCE 
!  A  USER  SELECTABLE  PERCENTAGE  OF  AIRCRAFT  ARE  NOT  INITIALLY  OR. 
i  THESE  AIRCRAFT  ARE  DISTRIBUTED  AMONG  THE  MAINTENANCE  SERVICE 
!  FACILITIES  IN  A  UNIFORM  MANNER.  AIRCRAFT  WITH  LEVEL  4  OR  5 
i  PROBLEMS  ARE  REPAIRED  AT  WING  OR  Bf  AN  MMTt  WHILE  2  AND  3  LEVEL 
i  PROBLEMS  ARE  REPAIRED  AT  SQUADRON. 


NX  IS  ASSIGN,ATRIB('?)-0,ATRIB(10)=0, 

ATR  IB  ( 11 1  -0 .  ATR 1 8  ( IS ) =USERF (141. 


ATRIB13) =USERF(23) t 1! 

ACT  » tUSERF (37) .GE.4.NYRT! 
ACT . .  USERF  ( 37 ) .  LT .  4 .  SPM  Y  J 

MYRT  COON i 1 t 

ACT...44.WGPRi 

ACTm.34.SPMY; 


ASSIGN  SQ  PARKING  TO  MY  A/C 
MAJOR  MAINTENANCE  ROUTE  (WG/MMT) 
TO  SQ  MY 

DISTRIBUTE  INITIALLY  BROKEN  A/C 
TO  WING 
TO  SPMX 


WCPR  ASSIGN. ATRIBC3)=USERF(22). 

ATRIB (3>  =4, 1 »  UNPARK  AT  SQ,  PARK  AT  WING 

ACT . , .WCi 
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1156 

i  PILOT  PREFLIGHT 

1157 

I  AIRCRAFT  ARRIVING  AT  PILOT  PREFLIGHT  ACQUIRE  A  CREU  CHIEF  AND  RE- 

1158 

!  CEIVE  NORMAL  OR  DELATED  SERVICE  DUE  TO  A  PROBLEM.  AIRCRAFT  WITH 

1159 

1  DELATED  SERVICE  HAVE  A  SLIGHTLT  HIGHER  PROBABILITT  OF  FAILURE 

1160 

1  BECAUSE  A  FAILURE  HILL  BE  SHOWN  IF  THE  AIRCRAFT  IS  WITHIN  5  MIN- 

1161 

i  UTES  OF  AN  NTOF  ON  ANT  STSTEM. 

1162 

1  IF  THE  LEAD  AIRCRAFT  IS  BROKEN  AND  A  SPARE  IS  NOT  AVAILABLE,  THE 

1163 

I  LEAD  PILOT  TAKES  THE  NUMBER  THREE  AIRCRAFT  UNLESS  THE  NUMBER  THREE 

1164 

1  PILOT  IS  FLIGHT  LEAD  QUALIFIED. 

1165 

I  ONCE  THE  PREFLICHT  ACTIVITY  IS  FINISHED  THE  AIRCRAFT  ARE  EVALU- 

1166 

1  ATED  FOR  THEIR  FAILURE  STATUS.  BROKEN  AIRCRAFT  ATTEMPT  TO  GET 

1167 

i  A  SPARE.  THE  FLIGHT  THEN  PROCEEDS  AS  A  THREE-SHIP,  A  TWO-SHIP. 

1168 

i  OR  THE  MISSION  IS  SCRUBBED. 

1169 

! 

1170 

PPFT  ASSIGN, I I=ATRIB(461 , XX ( I I) =0, 1 ? 

CLEAR  MISSION  (MSN)  STATUS  CODE 

1171 

ACT , , tPFRSi 

1172 

! 

1173 

PFRS  AHAIT(21),MI(TEAM/l,li 

WAIT  FOR  A  CREW  CHIEF 

1174 

ACT,,  BRAND.  GT.XX(65! ,PFST! 

XX (65) =2  TIME  PREFLT  DELATED 

1175 

ACT,,,PFNSi 

1176 

i 

1177 

PFST  ASSIGN,ATRIB(8)-TRIAG(4,5,7) ,1 > 

NORMAL  PILOT  PRE-FLIGHT 

1178 

ACT/41, ATRIB(81,,PFAS; 

1179 

! 

1180 

PFNS  ASSIGN, ATRIB(18)=USERF(52), 

1181 

ATRIB(8)*TRJAC(4,5,7)+ 

1182 

TRIAG16, 10,12) 

,1 .PILOT  PRE-FLIGHT  H/DELAT 

1183 

ACT/42, ATRIB(8l,,PFASi 

1184 

! 

1185 

PFAS  ASSIGN, ATRIB(18)=USERF(51),1! 

UPDATE  DYNAMIC  FAILURE  CODE 

1186 

ACT,  >ATRIB  (451. EQ.  LAND. 

1187 

USERF(37).GE.2,PEV1! 

A/C  1  FAIL 

1188 

ACT , , ATRIB (45) .EQ. 1 . AND. 

1189 

US£RF!37).LT.2,QPFli 

A/C  1  OK 

1190 

ACT , ,ATRIB (45) .EQ.2.AND. 

1191 

USERF (37) .GE,2»PEV2i 

A/C  2  FAIL 

1192 

ACT , .ATRIB (45) .EQ.2.AND. 

1193 

USERF (37) ,LT.2»QPF2i 

A/C  2  OK 

1194 

ACT,»ATRIB(45) .EQ.3.AND. 

1195 

USERF (37) .GE.2,PEV3! 

A/C  3  FAIL 

1196 

ACT,, ATRIB (45) .EQ.3.AND. 

1197 

USERF (37) .LT.2,QPF3i 

A/C  3  OK 

1198 

i 

1199 

PEVl  EVENT, 10, 11 

GET  SPARE  A/C  IF  AVAILABLE 

1200 

ACT . , XK (95)  .EQ.liPFAl,’ 

1201 

ACT , , XX (95)  .EQ.OtPFFr, 

1202 

i 

1203 

PFF1  ASSIGN, II=ATRIB(46), 

1204 

xx<ii)-xk<ii)+z,i; 

SET  MISSION  (MSN)  STATUS  CODE 

1205 

act,,,qpfi; 

36 


SET  MISSION  (MSN)  STATUS  CODE 


1286 

f 

1287 

QPF1  QU£UE(22),,,,PFNAi 

QUEUE  TO  NATCH  A/C  1  W/MSNI 

1288 

! 

1289 

PEV2  EVENT, 18, li 

GET  SPARE  A/C  IF  AVAILABLE 

1218 

ACT , » XX (95) .EO.liPFAli 

1211 

ACT , t  XX (95) .EQ.i,PFF2! 

1212 

i 

1213 

PFF2  ASSIGN, II=ATRIB<46), 

1214 

XX(II)=XX(II)+4»lt 

SET  MSN  STATUS  CODE 

1215 

ACT,,,QPF2i 

1214 

1217 

1218 
1219 
1228 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 
122? 
1238 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 


QPF2  QUEUE (23). ,,,PFHAi  QUEUE  TO  NATCH  A/C  2  W/NSN# 

PEV3  EVENT i 18 ill  GET  SPARE  A/C  IF  AVAILABLE 

ACT  t  >XX(95) .EQ.ltPFAlt 
ACT,,XX<95).EQ.0,PFF3! 

PFF3  ASSIGN, II=ATRIB(46) t 

xx<m  =xx(ii)+5»i;  set  hsn  status  code 

ACT  t ) *QPF3i 

QPF3  QUEUE (24), )*)PFHA;  QUEUE  TO  NATCH  A/C  3  U/HSN# 

I 

PFNA  NATCH , 46 , QPF 1 /PFS 1 ,QPF2 /PFT1, 

QPF3/PFU1J  MATCH  A/C  BT  MSN# 

! 

PFS1  ASSIGN, ll=ATRIB(46),li 

ACT, ,XX(II) .EQ.2.0R.XX(II),EQ.6.0R. 

XX  ( 1 1 >  .EQ.7.0R. 

XX (II i .EQ,11»PF$2J  IF  A/C  1  FAIL 

ACT, , Hill) .E0.9»STRPi  IF  A/C  1  STM  ABORT 

ACTmXX(II)  .EQ.4.0R. 

XX(II).EQ.5,PFA25  IF  A/C  1  NON  IN  FHO  SHIP 

ACTmXKII)  .EQ.8,ST3»  IF  A/C  1  STILL  IN  THREE  SHIP 


1248 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 
1258 

1251 

1252 

1253 

1254 

1255 


PFS2  GOON, 2! 

ACT , ,ATRIB<43) .NE.liPSEPi 

ACT ? , ATRIBX43)  .NE.hPFAli  IF  NOT  IN  CASE  1 

ACT,,ATRIB(43).EQ.1,PFS3!  CASE  l 

TRANSFER  PILOT  1  ATTRIBUTES 
TO  GLOBAL  VARIABLES 

PFS3  ASSIGN, XX(81)=ATRIB(32) , XX (82) =ATRIB(33) , 

XX  <831  =ATRIB(34MX<84>  =ATRIB(35) , 

XX (85) =ATRIB<36) >XX(86)=ATRIB(37), 

XX(87)=ATRIB(38> ,XX (88) =ATRIB(39) , 

XX (89) =ATRIB (4#) , XX (98) =ATRIB(41 ) , 
XX(?l)=ATRIB<42),ATRIB(321--0,li 
ACT , > ,PFA1 J ! 
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PFAI  ASSIGN, ATRIB(32)=0» 

ATRIB(13)=ATRIB(1) *lf  ASSIGN  A/C  LOCATION  CODE  IBT  SO) 

actm.shxc; 


PFTl  ASSIGN, II=ATRIB(46), 25 

ACT , .XXIII) .EQ.4.GR.XX (II) .EQ.6.QR. 

XXIII). EO. 9. OR. 

XXIII). EQ. 11. PSEP!  PILOT  2  RETURN  TO  READT  POOL 
ACT. . XX 1 1 1) .EQ.4.0R.XXIII) .EG. 6. OR. 

XXIII). EQ. 9. OR. 

XXIII). EQ. 11. PFAI!  A/C  2  BROKEN 
ACT, *  XX 1 1 1 ) .EQ.7.STRPJ  A/C  2  STH  ABORT 

ACT , , XX I II ) .£0.2. OR. 

XX(II).EQ.5,PFA2i  A/C  2  NON  IN  TNO  SHIP 

ACT,, XXIII). EQ.B.ST3;  A/C  2  STILL  IN  THREE  SHIP 

FFU1  ASSIGN, II=ATRIB(46), 2! 

ACT, , XXIII). E8. 5. OR. XXIII). EO. 7. OR. 

XXIII). EQ. 9. OR. 

XXIII). EQ.11.PFU2;  A/C  3  BROKEN 

ACT,, XXIII). EQ.6.STRP!  A/C  3  STH  ABORT 

ACT, , XXIII) .EQ.B.ST3,  A/C  3  STILL  IN  THREE  SHIP 

ACT,, XXIII). EQ. 2. AND. 

ATRIBI43) .NE.l,PFU5i  A/C  3  NON  LEAD  IN  A  TNO  SHIP 

ACT,, XXIII). EQ.4,PW,‘  A/C  3  NON  #2  IN  A  TNO  SHIP 

ACT,, XXIII). EQ.2. AND. 

ATRIBI43)  .EG.bPSEP!  PILOT  #3  RETURN  TO  READTPOOL 
ACT,, XXIII). EQ.2.AND. 

ATRIB (43) .EQ.1.PFU7?  PILOT  II  TAKES  A/C  3 

PFU2  ASSIGN, XX (II) =0, 2!  BROKEN 

ACT , , ,P$EPi 

ACT,,, PFAi,'  TONI 

PFU5  ASSIGN, ATRIB (45) =l»XX(II)=0,lf  REASSIGNS  A/C  3  AS  A/C  1 

ACT,,,PFA2)  TNO  SHIP 

PFUS  ASSIGN, ATRIB(45)=2,XX(II)=«,i;  ASSIGNS  A/C  3  AS  A/C  2 

ACT,, ,PFA2!  TNO  SHIP 

PLACE  PILOT  1  IN  A/C  3 

PFU7  ASSIGN,  ATR1B132MXX  (81 )  ,ATRIB(33!=XX  (82! , 

ATRIB (34) =XX (831 , ATRIBI35) =KX(64), 
ATRIBI34)=XX(85),ATRIB(37)=XX(8c), 

ATRIB(38)=XX(87) ,ATRIB(39)=XX(88) , 

ATRIB (40) =XX (89! , ATRIB! 41 )=XX  190) , 

ATRIB 142) =XX(91),1» 

ACT,, ,PFU5! 


I 


1388  PFA2  ASSICNt ATRIB (44) =2» l*  SETS  CODE  FOR  TWO  SHIP 

W  ACT...8T28  TO  START  TWO 

1398  i 
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TP  SfVWfcb,  6/JdtfcW  Alt  ' 


Pilot  Pre flight 


1389 

1  THREE-SHIP  START 

1318 

!  THIS  SECTION  PROVIDES  TIKE  FOR  STRAP- IN  AND  PRE- START  CHECKS. 

1311 

!  A/C  THEN  START  ENGINES.  SOKE  HAT  BE  DELATED  ON  START.  AFTER 

1312 

i  STARTt  IN  THE  CHOCK  CHECKS  ARE  ACCOHPLISHED.  ONCE  THE  A/C  HAVE 

1313 

I  STARTED.  ENGINE  RUN  TINE  IS  TRACKED. 

THIS  VALUE  IS  USED  TO  COM- 

1314 

I  PARE  TO  NTOF  TO  DETERMINE  NHEN  AN  AIRCRAFT  FAILS  FOR  A  GIVEN 

1315 

1  STSTEH.  ONCE  CHECKS  ARE  COMPLETE.  AIRCRAFT  ARE  EVALUATED  FOR 

1314 

i  FAILURES  AND  ROUTED  ACCORDINGLY.  AS  WITH  PREFLIGHT,  IF  THE  LEAD 

1317 

1  A/C  BREAKS  THE  PILOT  TAKES  THE  NUMBER  THREE  A/C  UNLESS  ITS 

1318 

1  PILOT  IS  A  FLIGHT  LEAD. 

1319 

! 

1328 

STS  GOON. 11 

U (44)-  X  OF  A/C  DELATED  STARTING 

1321 

ACT, TRIAG(2, 3,41, 

1322 

BRAND. CT. XX (64) ,S3ASi 

NORMAL  PROCESS 

1323 

ACT.TRIAG14.5.4) ,,S3AS! 

DELATED  PROCESS 

1324 

i 

1325 

S3AS  ASSIGN, ATRIB(8I=TN0«»1! 

A/C  OPERATING  TIME  HAS  BEGUN 

1324 

ACT,TRIAC<2,3,4), 

1327 

ATRIBI45) .Efl.liOSTll 

CONTROL  SURFACE  TESTING 

1328 

ACT ,TRI AG(Z.3,4> , 

1329 

ATRIB (45) .EQ.2.QST2! 

1338 

ACT, TRIAG 12,3,4), 

1331 

ATRIB (45) .EQ.3.0ST35 

1332 

! 

1333 

QST1  QUEUE125) ,,,,S3MA! 

WAIT  TILL  ALL  3  A/C  ARE  DONE 

1334 

< 

1335 

QST2  0UEUE(24),,,,S3MA1 

1334 

i 

1337 

9ST3  QUEUE (27),,,, S3MA1 

1338 

i 

1339 

S3MA  MATCH, 44, QST1/S3F1.QST2/S3F2, 

1348 

QST3/S3F3I 

REFORM  FLIGHT 

1341 

! 

1342 

UPDATE  MISSION  STATUS  CODE  BT  A/C 

1343 

S3F1  ASSIGN, ATRIB18)  =TNOH  -  ATRIB18! 

, 

1344 

ATR IB( 14) =ATRIB ( 14) +ATRIB (8) , 

1345 

ATRIB17)  =ATRIB(7i  +ATRIB18), 

1344 

ATRIB(18)--USERF(5l)» 

1347 

ATRIB18)  =TNOW, 1 i 

1348 

ACT , .USERF (37) ,Gt.2,S3F4! 

A/C  1  BROKEN 

1349 

ACT,. 0081,, STSl, 

A/C  1  OK 

1358 

1 

1351 

S3F4  ASSIGN, II=ATRIB(44). 

1352 

XX(II)=XX(II)+2,li 

SET  UP  TO  GO  TO  HI 

1353 

ACT,. 0801,, STS1! 

1354 

! 

1355 

r 

UPDATE  MISSION  STATUS  CODE  BT  A/C 

1354 

i 

1357 

S3F2  ASSIGN, ATRIB18)  =TNON  -  ATRIB18) 

1358 

ATRIB! 14) =ATRIB(14!+ATRIB(8), 

43 


ATRIB17)  =ATRIB(7)  +ATRIB<8), 

ATRIB ( 18) =USERF (51 > » 

ATRIB18)  =TNOWt 1 1 

ACT , , USERF 1 37 ) . CE . 2 , S3F5  i  A/C  2  BROKEN 

ACT,. 0001 ,,STT1!  A/C  2  OK 


S3F5  ASSIGN. H-ATRlB(4i). 

XXUI)=XX<Il)+4»lr 
ACT,. 0001,, STTli 


SET  UP  TO  GO  TO  HI 


UPDATE  MISSION  STATUS  CODE  BT  A/C 


S3F3  ASSIGN. ATRI818)  =TNO«  -  ATniBlB), 

ATRIBt 14) =ATRIB  < 14) +ATRI B/8) . 

ATRIB (7)  =ATRIB (7)  +ATRIBI8). 
ATRIB(18!=USERF(51), 

ATRI8(8I  =TNOW. 1 » 

ACT,,USERF(37).GE.2»S3F6!  A/C  3  BROKEN 

ACT,. 0001,, STUli  A/C  3  OK 


S3F6  ASSIGN. II=ATRIB(Ui, 

xx(ii)=xx(in+5.i; 

ACT,. 0001.. STU1! 


SET  UP  TO  GO  TO  MI 


CHECK  THE  MISSION  STATUS  CODE  TO 
DETERMINE  WHAT  HAPPENED  TO  EACH 
A/C  IN  THE  FLIGHT 

STS1  ASSIGN,  II=ATRIB<44!,1! 

ACT,,XX(II)  .E8.2.0R.XXUI)  .EQ.S.QR. 

XXUD.EQ.7.0R. 


XXUn.EQ.il.STS2! 
ACT..XXUD  .EQ.9.STRP! 
ACT,,XXUI).EQ.4.0R. 

XXU1)  .EQ.5.STA2! 
ACT,,XX(II).EQ.0,T3UP! 


A/C  1  FAILED 
STM  ABORT 

A/C  1  PART  OF  THO  SHIP 
FLIGHT  STILL  A  THREE  SHIP 


STS2  ASSIGN, XX(95!=USERF(124) > 2! 
ACT,, ATRIB (43) .NE.l.PSEP! 
ACT,,ATRIB(43) .NE.1.S2L0! 
ACT , .ATR18143I .EO. 1 .STS35 


A/C  1  FAIL,  NOT  CASE  1 
A/C  1  FAIL,  CASE  l 


PLACE  PILOT  1  ATRIBUTES  IN  GLOBAL 
VARIABLES  SC  THET  CAN  BE  PLACED 
IN  A/C  3.  ALSO,  ZERO  OUT  PILOT 
BECAUSE  A/C  1  NO  LONGER  HAS  A 
PILOT  IN  IT. 

STS3  ASSIGN, XX(81 ) =ATRI8(32> , XX (82) =ATRIB(33) , 
XX(83)=ATRIB<34),XX(84)=ATRIB<35)» 
XX(85)=ATRIB(3S),XX(8G!=ATRIB<37), 


1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 


XX  (87) =ATRIB (381 f  XX (88>  =ATRIB (39) , 
XX(89)=ATRIB(40),XX(90)=ATRIB<41>. 
XX(91)=ATR1B<42) t ATRIB (32) =0? 1 i 
ACT i i t$2L0i 


STT1  ASSIGN.II=ATRIB(46). 

XX (95) =USERF (124)»2I 
ACTmXX(II)  .EQ.4.0R.XX(II>  .EQ.6.0R. 
xx<n>.Efi.9.0R. 

XXdD.EQ.U.FSEP;  PILOT  SEPERATIQN 

ACTt.XX(II) .E8.4.0R,XX(II) .EQ.6.0R. 

XX(II) .EQ.9.0R. 

XX(II).Efl.tl»S2L0!  A/C  2  FAILED 

ACT»»XX(II).EQ.7.STRP!  A/C  2  SYM  ABORT 

ACT  f  »XX(II) .EQ.Z.OR. 

XX(II) .EQ.5.STA2!  A/C  2  PART  OF  TWO  SHIP 

ACTmXX(II)  .EQ.0.T3UP!  A/C  2  STILL  IN  THREE  SHIP 


STU1  ASSIGN* II=ATRIB(46) t 

XX (95) =USERF ( 124) »2r 
ACTi.XX(II) .E0.5.0R,XX(II) .EQ.7.0R 

XX(IX) .EQ.9.0R. 

XX(II).£Q.ll»STU2f  A/C 

ACT, tXX III) .EQ.6.STRPJ  A/C 

ACTnXX(II)  .EO.0.T3UP!  A/C 

ACT, ,XX(II) .EQ.2.AND. 

ATRIB (43) .NE.ltS” 35!  HOW  i 

ACT*  iXX(II)  ,E0.4iST(J6!  NOW 

ACT , , XI ( II) .EQ.2.AND. 

ATRI8(43).£fl. l.PSEP!  SEND 

ACT , , XX ( 1 1 ) .EO. 2. AND. 

ATRI8(43) .EQ.I.STU7!  A/C 


A/C  3  FAILED 

A/C  3  SYH  ABORT 

A/C  3  STILL  IN  THREE  SHIP 

HOW  A/C  1  IN  TWO  SHIP  (CASE.NE.l) 
NOW  A/C  2  IN  TWO  SHIP  (CASE.NE.l) 

SEND  PILOT  3  BACK 


A/C  3  NOW  LEAD  IN  TWO  SHIP  (CASE  1) 


STU2  ASSIGN. XX(II)=0. 

XX (95) =USERF (124) .21 

actu.psep; 

actm.szlo; 


SEPARATE  PILOT  FROM  A/C 
A/C  3  TO  HX 


STU5  ASSIGNiATRIB(45)=l»XX(II)=0. 1!  CHANGE  A/C  3  TO  LEAD  A/C 
ACT .. tSTAZi 


STU6  ASSIGN, ATRIB(45) =2,XX(II)=0,li  CHANGE  A/C  3  POSITION  TO  2 
ACT , , ,STA2 J 

HOVE  PILOT  1  ATTRIBUTES  INTO  A/C 
WHICH  THEN  BECOMES  LEAD  A/C 
STU7  ASSIGN, ATRIB(32)=XX (81), ATRIB(33)=XX(82)> 

ATRIB (34) !XX (831, ATRIB (35) =XX (84) , 

ATRIB(36)SXX(85) ,ATRIB(37)=XX(86), 
ATRIB(38)=XX(87).ATRIB(39)=XX(88). 


ATftIB  <40$  =XX (89) » ATRIB (41 ) =XK  <9#> > 

ATRIB(42) =XX(9J) »1J 
ACT...STU5; 

t 

STA2  ASSIGN, ATRIB<44»=2. 

ATRIB (3>  =USERF (22) , 

ATRIBtl ) =USERF < 17) 1 1 1  MAKE  THO  SHIP  AND  UNPARK 
ACT,,,THA2i 

T3UP  ASSICWfATRIBO)  =US£RF<22) » 

ATRIBt 1 ) =USERF  1 17) tit 
ACT,nTHA3! 


Fig  A.5.1  Three-Ship  Start 


F/o*l  Afc 


Ship  Start 


m 


1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 


THREE-SHIP  TAX  1 1  MARSHALL  AND  ARM 

AFTER  START  THE  A/C  RELEASE  THEIR  MAINTENANCE  TEAMS  AND  TAXI 
TO  A  MARSHALLING  AREA  AND  THEN  TO  THE  ARMING  AREA.  A/C 
ACQUIRE  AN  ARMING  CREW  FOR  ARMING  SERVICE.  WHEN  ARMING  IS 
COMPLETED  THE  A/C  ARE  EVALUATED  FOR  FAILURE  AND  ROUTED 
ACCORD INGLT.  THE  A/C  PROCEED  AS  A  THREE-SHIP,  A  TWO-SHIP, 

OR  THE  MISSION  IS  SCRUBBED. 

TMA3  FREE, MXTEAH/ 1,1!  RELEASE  MX  TEAM 

ACT/43, USERF(63)+TRIAG(2, 3, 41, 

DRANC.GT.XX (67) ,T3AS!  XX (67)  -  l  A/C  THAT  DELAT  TMA 
ACT/44, USERF(63I+TRIAG(6, 8, 10), 

, T3AS!  A/C  THAT  HERE  DELATED 


T3AS  GOON, 1! 

ACT, ,ATRIB(45) .Efl.liQTMl!  A/C  1 
ACT , ,ATRIB (45) .EQ.2,QTM2!  A/C  2 
ACT, ,ATRI8(45).EQ.3,QTM3!  A/C  3 


QTM1  aUEU£(30),,,,T3MAi  WAIT  TO  REFORM  FLT 

f 

0TM2  QUEUE ( 31 )>,,.T3MAi 

! 

QTM3  QUEUE (32),,,, T3MA! 

! 

T3MA  MATCH, 46, GTH1/T3F1,QTH2/T3F2, 

QTM3/T3F3!  REFORM  FLT 

1  UPDATE  MISSION  STATUS  CODE  BT  A/C 

T3F1  ASSIGN, ATRIB18)  =TNOW  -  ATRIE (8) , 

ATRIB (14) =ATRIB(14)+ATRIB(8) , 

ATRIBI7)  =ATRIB(7)  +ATRIB(8), 

ATRIB(18l=USERF(5l) , 

ATRIB18)  =TNOH,l! 

ACT , ,USERF (37) .GE.2.T3F4!  A/C  l  BROKEN 

ACT,. 0001, ,TMSli  A/C  1  OK 

i 

T3F4  ASSIGN, II=ATRIB(46) , 

XX(II)=XX(II)+2,1! 

ACT,. 0001,, TMS1, 

!  UPDATE  MISSION  STATUS  CODE  BT  A/C 

T3F2  ASSIGN, ATRIB(S)  =TN0H-ATRIB(8) , 

ATRIB(14)=ATRIB(14!+ATRIB(S) , 

ATRIB(7)  =ATRIB(7)  +ATRIB18), 

ATRIB(18)=USERF(51>, 

ATRIB (8)  =TNOW, 1 ! 

ACT , ,USERF(37) .GE.2,T3F5!  A/C  2  BROKEN 

ACT,. 0001, ,TMT1!  A/C  2  OK 

I 

T3F5  ASSIGN, II=ATRIB(46>, 

xx(ii)=xx(in+4,n 
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1521 

1522 

1523 

1524 

1525 
1524 

1527 

1528 

1529 
1538 

1531 

1532 

1533 

1534 

1535 
1534 

1537 

1538 

1539 
1548 

1541 

1542 

1543 


A/C  3  BROKEN 
A/C  3  OK 


ACT, .0801, .THTll 

!  UPDATE  MISSION  STATUS  CODE  BT  A/C 

T3F3  ASSIGN, ATRiB(S)  --TNON  -ATRIB181, 

ATR1BI 14) =ATRIB(14J  +ATRIB (8) , 

ATRIB171  =ATRIB (7)  +ATRIB181, 

ATRIB(18)=USERF(51), 

ATRIB18I  =TNOU,l? 

ACT , .USEfif 137) .G£. 2,T3F4i 
ACT,. 0001,, TMU1! 

f 

T3F4  ASSIGN, II=ATR1B(44), 

xx(ii)=xmi)+5,i; 

ACT,. 0001,, TMUli 

i  EVALUATE  MISSION  CODE  TO  DETERMINE 

TMS1  ASSIGN, I I=ATRIB(44),1!  STATUS  OF  FLIGHT  (EACH  A/C) 

ACT,»XX<II).EQ.Z.0R.XX(II).EQ.4.QR. 

XXXII) .EQ.7.0R. 

XXXII) . EQ. 1 1 ,T2LOJ  A/C  1  FAIL 

ACT, tXX(il) ,EQ.9,THZ2i  A/C  1  STM  ABORT 

ACToXX(II)  .E9.4.GR. 

XX (I  I) .£Q.5,TMZ3f  A/C  1 

ACT,,XX1I1).EO.0,TO3!  A/C  1 


NON  IN  A  TWO  SHIP 
STILL  IN  A  THREE  SHIP 


1544 

T2L0  ASSIGN, ATRIBX13) =7, 

1545 

XX(95)-USERF(124),2I 

i 

1544 

ACT , USERF ( 47  > , USERF  < 1 2 ) . EQ . 1 , PSEP ! 

1547 

ACT,,USERF(12).EG.1,T2LR; 

i 

1548 

act,,, main; 

1549 

i 

1550 

T2LR  ASSIGN, ATRIB(32)=0,H 

1551 

ACT,,, main; 

j 

1552 

f 

> 

k- 

1553 

TMZ2  ASSIGN, ATRIB ( 13) =7, 1 J 

1554 

ACT,,,DEA4i  GO  TO  REFUEL 

j 

' 

1555 

1 

1554 

TMT1  ASSIGN, II=ATRIB(44),i; 

} 

,  1557 

ACTitXHII)  .EQ.4.0R.XXXII)  .EQ.4.0R. 

1 

;  i 

1558 

XXXII) .EQ.9.0R. 

1559 

XXXID.EQ.li, T2L0!  A/C  2  FAIL 

1 

i 

4  X 

1540 

ACT,,XXdI>.E9.7.0R.XX(II)  .EQ.Z.AND. 

H 

1541 

ATRIB (43) .EQ.ltTMZZ!  A/C  2  STM  ABORT 

1542 

ACT,, XX (II). EQ. 5. OR. XX (II). EQ. 2. AND. 

*  J 

1543 

ATRIB (43) .NE.1,TMZ3!  A/C  2  PART  OF  A  TWO  SHIP 

1544 

ACT,,XX(II).EQ.0,TO3!  A/C  2  STILL  IN  A  THREE  SHIP 

1545 

‘ 

1544 

TMU1  ASSIGN, II=ATRIB(44),1! 

1547 

ACTi.XXdl) ,EQ.5.0R.XX(II)  .EQ.7.0R. 

. 

1548 

XXdl)  .EQ.9.0R. 

1549 

XX(II).EQ.U, TMUZi  A/C  3  FAIL 

f  -  f 

1570 

ACT,, XX (II ) .EQ.4.0R, XX (II) .EQ.Z.AND. 

•  ! 

f 

50 

■fv<eum 

•  *  1 

A/C  3  STM  ABORT 


ATRlB(43).EQ.liTMZZi 
ACT,»XX(III .EQ.2.AND. 

ATRIB<43).NE.l,TMU4i  A/C  3  FLT  LEAD  OF  A  TWO  SHIP 

ACTmXKII)  .E0.4iTMU5!  A/C  3  PART  OF  A  TWO  SHIP 

ACT,,XX(II).E0.«,T03;  A/C  3  STILL  IN  A  THREE  SHIP 

TMU2  ASSIGN. XX(II>=0ilt  A/C  TO  MI 

ACT...T2L05 

TMU4  ASSIGN. ATRIB(45)=1. 11(111=0, II  CHANGE  A/C  3  TO  LEAD  A/C 

ACT.i.TMZSi 

TMU5  ASSIGN, ATRIB(45)=2,XX<II)=0,li  CHANCE  A/C  3  TO  POSITION  2 
ACT...TMZ3! 


TMZ3  ASSIGN, ATRIB(44)=2,H 
ACT , , , T02» 


CHANGE  FLT  TO  A  TWO-SHIP 


Pn ctfceb 


Three-Ship  Taxi.  Marshall ,  and  Arm 


Marshall,  and  Ara 


i  THREE-SHIP  TAKEOFF 

THE  LEAD  A/C  ACQUIRES  THE  RUNUAT  FOR  THE  FLIGHT  AND  THE  FLIGHT 
TAXIS  ON  THE  RUNWAY  FOR  RUN-UP  CHECKS  AND  TAKEOFF.  THERE  IS  A 
POSSIBILITY  OF  DELAY .  A/C  ARE  EVALUATED  FOR  FAILURES  AND  THERE 
IS  THE  ENTIRE  GAMUT  OF  POSSIBILITIES  FROM  SIMPLE  MAINTENANCE 
ABORT  OF  ONE  A/C  TO  SYMPATHETIC  AIR  ABORT.  IF  ALL  3  A/C  LAUNCH 
THE!  PROCEED  TO  REJOIN  (REJ3),  IF  ONLY  1  THET  REJOIN  (REJ2I, 

ELSE  TIE  MISSION  IS  SCRUBBED. 

T03  GOQNili  ROUTINE  FOR  FLT  TO  GET  THE  RNWY 

ACT  *  * ATRIBI45) .EQ.tiTGA3i 
ACTinTQG3i 

T0A3  AWAIT  145) » RUNWAY / 1 » i t 

ACT .. 088 1 .BRAND. GT.XX (68). TOGS! 


ACTtTRIAG(.5ili2I »iTOC3! 
T0C3  GOON. I i 

ACT » »ATRIB (45) .£Q. l.QTOli 
ACT  t » ATRIB  <45) .£Q.2»QT02f 
ACT. iATRIB(45) .EQ.3.QTG3! 


QTOI  QUEUE (35).... L3MAI 

8T02  QUEUE  <36  ),.,,L3fM! 

QT03  QUEUE (37) f.,,L3NAi 

L3MA  NATCH.46.QT01/L3Fh 

QT02/L3F2.0T03/L3F3! 

I 

L3F1  ASSI GN» ATRIB (8) =TNOW-ATRIB (8) . 
ATRIB  (8)  =ATRIB  (8)  -*-1 » 

ATRIB ( 14) =ATRIB(14>  +ATRIB (8) 

ATRIB(7)=ATRIB(7i+ATRIB(8)t 

ATRIB(18)=USERF(51), 

ATR I B ( 8 ) =TNOW » 1 » 

ACT . .USERF (37) .GE.2.L3F4! 
ACTi.M81i.T0SU 

! 

L3F4  ASSIGN. II=ATRIB(46), 
XX(II!=n(II)+2.1J 
ACT.. Bill  t.TOSU 

» 

L3F2  ASSIGN, ATRIB(8)=TNQN-ATRIB(8) . 
ATRIB (8) =ATRIB (8) +1 » 

ATRIB (14) =ATR!B(14)+ATRIB(8) 
ATRIB(7)=ATRIB(7)+ATRIB(8I . 
ATRIB ( 18) =USERF (51 ) » 


WAIT  TO  REFORM  FLIGHT 


REFORH  FLIGHT 

UPDATE  MISSION  STATUS  CODE  BT  A/C 


A/C  I  BROKEN 
A/C  1  OK 


UPDATE  MISSION  STATUS  CODE  BT  A/C 


m 


1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 
165# 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 
166# 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 
1669 
167# 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 
168# 
1681 
1682 

1683 

1684 

1685 

1686 
1687 


ATRIB(8)=TNQW,1» 

ACT » , USERF ( 37 ) . GE . 2 , L3F5  S  A/C  2  BROKEN 

ACT.. #««li. TOT1S  A/C  2  OK 

S 

L3F5  ASSIGN. lI=ATRI8(46i , 
xxun=xxan+4,is 
ACT.. ###1.. TOT1S 

S  UPDATE  MISSION  STATUS  CODE  BT  A/C 

L3F3  ASSIGN. ATRIB18) =TNOH-ATRIB(8) . 

ATRIB(8)-ATRIB(8)+1, 

ATRIB (14>  =ATRIB ( 14X+ATRIB (8) , 

ATRIB(7)=ATRIB(7S+ATRIB(8>, 

ATRIB ( 18) =USERF (51 ) . 

ATRIB(8)=TN0W.l* 

ACT, ,USERF(371 .GE.2.L3F6S  A/C  3  BROKEN 

ACT, .0001, .TOU1S  A/C  3  OK 


L3F6  ASSIGN, II=ATRIB(46i, 
xx(ii)=xx(ii)+5,i; 
ACT,. 0001,, TOUli 


TOS1  ASSIGN, II--ATRIB(46), IS  EVALUATE  A/C  1  STATUS 

ACT.l.XXdl)  ,E9.2.0R,XX(II)  .E0.6.0R. 

XX(II) .EG. 7. OR. 

XXlin.EO.ll,  H3GAS 
ACT,l,XX(II!.E0.9,FRS3i 
ACT,l,XX(II).E0.4.0R. 

XX(lI).£0.5,FRTZi 
ACT»»XX(II).EO.0,FRH3S 


A/C  1  BROKEN  ON  RUNWAT 
A/C  1  STH  AIR  ABORT 

A/C  1  PART  OF  A  TWO  SHIP 
A/C  1  STILL  IN  A  THREE  SHIP 


T0T1  ASSIGN, II=ATRIB(46>, IS  EVALUATE  A/C  2  STATUS 

ACT,1,XX(II) .E0.4.0R.KX(ID .EG.6.QR. 

XX(II) .EQ.9.0R, 

XX(II).E0.11,DEA3S  A/C  2  BROKEN  ON  RUMUAT 

ACT,, XX (II). EG. 7. AND. 

ATRIB(43).NE.l, TOFTS  A/C  2  STH  AIR  ABORT 
ACT,1,XX(II).EQ.2.AND.ATRIB(43).E0.1.0R. 

XX(II).E0.7.AND. 

ATRI B (43> .EQ. 1 ,T 0Z2S  A/C  2  STH  GRND  ABORT 

ACTmXX(II)  .E0.5.0R.XX(II)  .EG. 2. AND. 

ATR18(43).NE. 1,T0Z1S  A/C  2  PART  OF  A  TWO  SHIP 
ACT , , XX ( II ) .EQ.0.REJ3S  A/C  2  STILL  IN  A  THREE  SHIP 

TOU!  ASSIGN, II=ATRIB(46),1!  EVALUATE  STATUS  OF  A/C  3 

ACT,  ,XX(II)  .EQ.S.OR.XXd  I)  .E0.7.0R. 

nan. eg. 9. or. 

XXan.E0.il, T0U2S  A/C  3  BROKEN  ON  RUNWAT 
ACTil.XXai)  .EG.6.0R.XX(II)  .EQ.2.AND. 

ATRIB (43) .EG. I,T0Z2S  A/C  3  STH  GRND  ABORT 
ACTi.XXdl)  .EG.2.AND. 
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1688 

ATRIB (43) ,NE.i,TQU4! 

1689 

ACT» .XXIII) .EQ.4.T0U5! 

169# 

ACT  >  f  XX ( II ) ,EQ.fiREJ3i 

1691 

1 

1692 

T0U2 

assigni  min=0.  i; 

1693 

ACT, 1,,D£A3! 

1694 

! 

1695 

TOU4 

ASSIGN j ATRIB (45) =lfXX(II)=0tlt 

1696 

actm.tozi: 

1697 

i 

1698 

T0U5 

ASSIGN, ATRIB(45)=2.XX(II)=0»1» 

1699 

actm.tozi; 

170# 

5 

1701 

TOZ1 

ASSIGN, ATRIB (44) =2» 1 » 

1702 

ACT,, iREJZ! 

1703 

i 

1704 

FRH3 

FREE, RUNWAY/ l,ti 

1705 

ACT , , ,REJ3i 

1706 

i 

1707 

FRT2 

FREE,RUNWAY/1 , 1 J 

1708 

ACT,, ,TOZl, 

1709 

i 

1710 

M3GA 

FREE, RUNWAY/ 1,1, 

1711 

ACT, , ,DEA3 I 

1712 

• 

t 

1713 

TOZ2 

ASSIGN,  ATRIB(I7M1,I,' 

1714 

ACT,,, DE A3 I 

1715 

1 

1716 

FRS3 

FREE, RUNHAT/ 1,1! 

1717 

ACT,,, TOFT! 

A/C  3  IS  MOW  FLT  LEAD  IN  A  TWO  SHIP 
A/C  3  MOW  IN  A  TWO  SHIP 
A/C  3  STILL  IN  A  THREE  SHIP 

CHANGE  A/C  3  TO  FLT  LEAD  (A/C  1) 

CHANCE  A/C  3  TO  A/C  POSITION  2 

CHANGE  NUMBER  OF  A/C  IN  MSN  TO  2 

RELEASE  RUNWAY  -  REJOIN  THREE  SHIP 

RELEASE  RUNWAY  -  REJOIN  THO  SHIP 

RELEASE  RUNUAT  -  GO  TO  DEAR)! 

ST«  GRUB  ABORT 


SYM  AIR  ABORT 


ftTbUr 


Fig  A.7.1  Three-Ship  Takeoff 


Dfc*5  )  Ta 


Pig  A*7«2  Three-Ship  Takeoff 


1719 

i  THREE-SHIP  REJOIN 

1720 

1  AFTER  TAKEOFF  THE  A/C  REJOIN  BEFORE  PROCEEDING  ON  THEIR  MISSION. 

1721 

1  A/C  ARE  EVALUATED  FOR  FAILURES  BEFORE  BEING  ALLOWED  TO  PROCEED 

1722 

i  ON  THE  MISSION.  BROKEN  A/C  ARE  ROUTED  ACCORDINGLY.  THE  RE- 

1723 

»  SULT  HAT  BE  A  THREE-SHIP  MISSION.  A  TWO-SHIP  MISSION.  OR  THE 

1724 

i  THE  MISSION  MAT  BE  SCRUBBED  WITH  A  SYMPATHETIC  AIR  ABORT.  IF 

1725 

!  AN  AIRCRAFT  AIR  ABORTS  IT  MAY  JETTISON  AND/OR  BURN  DOWN  GAS 

1724 

i  PRIOR  TO  LANDING.  AIRCRAFT  WHICH  EXPERIENCE  FAILURES  IN  THE 

1727 

i  AIR  WILL  CRASH  IF  THE  FAILURES  ARE  SEVERE  ENOUGH  IN  CERTAIN 

1728 

1  SYSTEMS  OR  COMBINATIONS  OF  SYSTEMS. 

SEE  THE  FORTRAN  LISTING 

1729 

1  FOR  THE  SPECIFIC  FAILURE  LEVELS  AND  COMBINATIONS  OF  SYSTEMS. 

173# 

i 

1731 

REJ3  ASSIGN.n(95)-USERF(121). 

1732 

XX (94) =XX (94)  +  If 

1733 

XX  (95)  sUSERFU22l.il 

1734 

ACT.TRlACd.2i3). 

1735 

DRAND.GT.XX (49) .R3STJ 

NORMAL  REJOIN 

1734 

ACT.TRIAG(2.3.4),.R3STI 

DELAY  IN  REJOIN 

1737 

i 

1738 

R3ST  GOON.l! 

1739 

ACT. .ATRIB145) .EO.lfQREl! 

174# 

ACT.»ATRIB(45).E0.2iQRE2i 

1741 

ACT. .ATR1B(45) .EQ.3.0RE31 

1742 

. 

1743 

QRE1  aU£UE(40),.,.R3MAi 

WAIT  TO  REFORM  FLIGHT 

1744 

i 

1745 

QRE2  QUEUE (41)»».» R3MA » 

1744 

» 

I 

1747 

QRE3  QUEUE(42),,,,R3MAi 

1748 

1 

UPDATE  MISSION  STATUS  CODE  BY 

1749 

R3MA  MATCH. 44. 9REI/R3F1, 

1750 

QRE2/R3F2.QRE3/R3F35 

1751 

r 

1752 

R3F1  ASSIGN, ATRIB (8) =TNOW-ATRIB (8) , 

1753 

ATRIB(15)-ATRIS(8), 

1754 

ATRIB(7)=ATRIB(7)+ATRIB(8) , 

1755 

ATRI8d8)=USERF(51)f 

1754 

ATRIB (8) =TNOHt 1 f 

1757 

ACT i »USERF (37) .GE.2.R3F45 

A/C  1  BROKEN 

1758 

ACT,. 0001,, RES1I 

A/C  l  OK 

1759 

• 

1 

UPDATE  MISSION  STATUS  CODE  BY 

174# 

R3F4  ASSIGN, II=ATRIB(44) . 

1741 

XX(II)=XX(II)+2»if 

SET  UP  TO  GO  TO  MX 

1742 

ACT,. 0001 f.RESl! 

1743 

I 

1744 

R3F2  ASSIGN, ATRIB(8) =TNOW-ATRIB(8! , 

1745 

ATRIB(15)=ATRIB!8), 

1744 

ATRIB (7) =ATRIB (7) +ATRXB (8) , 

1747 

ATRIB(18)=USERF(51). 

1748 

ATRIB(8> --TN0W.il 
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1769 

ftCT » fUSERF 137> .GE.2,R3F5t 

A/C  2  BROKEN 

1770 

ACT,. 0001 i.RETli 

A/C  2  OK 

1771 

i 

UPDATE  MISSION  STA 

1772 

R3F5  ASSIGN, II=ATRIB(44) , 

1773 

mii)=xK(in+4,i; 

SET  UP  TO  GO  TO  MX 

1774 

ACT,. 0001,, reti; 

1775 

1 

1774 

R3F3  ASSIGN* ATRIB (8) =TN0U-ATRIB(8) , 

1777 

ATRIB(15)=ATRIB(8>, 

1778 

ATRI8(7I=ATRIB(7)+ATRIB(8) , 

1779 

ATRIB ( 18) =USERF (51 > , 

1780 

ATRIB(8)-TN0W,lf 

1781 

ACT, fUSERF (37) .GE.2,R3F4i 

A/C  3  BROKEN 

1782 

ACT,. 0001, ,R£U1! 

A/C  3  OK 

1783 

1 

1784 

R3F4  ASSIGN, II=ATRIB(44), 

1785 

xx(in=xx(ii)+5,i; 

SET  UP  TO  GO  TO  MX 

1784 

ACT, .0001, ,REUli 

1787 

i 

1788 

RES1  ASSIGN, 1 I=ATRIB(441,1! 

1789 

ACT, >XX (II). E9. 2. OR. XX (II) .£9.4. OR. 

1790 

XX(II) .EQ.7.0R. 

1791 

XX(II) .EO.lltREFTl 

GO  TO  MX 

1792 

ACT,,XX(II).E9.9,R2S3! 

STM  AIR  ABORT 

1793 

ACT, ,XX (II) .EQ.4.0R. 

1794 

XXlII).E9.5,RE2i; 

REJOIN  AS  TWO-SHIP 

1795 

ACT,. 0001, XX(II).E9.0, HISS! 

THREE-SHIP  MISSION 

1794 

! 

1797 

RETI  ASSIGN, II=ATRIB(44),1! 

1798 

ACT,,XX(II) .E9.4.0R,XX(II) .E9.4.0R. 

1799 

XX  (II) .EQ.9.0R. 

1800 

XX(Il) .E9.lt, REFXi 

GO  TO  MX 

1801 

ACT,,XX(II)  ,E9.7.0R.XX(ID  .EQ.2.AND. 

1802 

ATRIB(43i .E9. l,R2S3! 

STM  AIR  ABORT 

1803 

ACT , , XX ( I I ) ,EQ.5.0R.XX(II).ES.2.AND. 

1304 

ATRIB (43) .NE.l.REZli 

REJOIN  AS  TWO-SHIP 

1805 

ACT,. 0001, XX(Il).E9.0,HISS! 

THREE-SHIP  MISSION 

1804 

f 

1807 

REU1  ASSIGN, II=ATRIB(44),i; 

1808 

ACT, ,XX(II).EQ.5.0R.XX(II). 

E9.7.0R. 

1809 

XX ( I I ) .EQ.9.0R. 

1810 

XX(II).E9.11,REU2i 

GO  TO  MX 

1811 

ACT,,XX(II).Efl.4.0R.XX(II) , 

EQ.2.AND. 

1812 

ATRIB (43) .EG. 1 >R2S3> 

STM  AIR  ABORT 

1813 

ACT, ,XX(II> .EQ.2.AND. 

1814 

ATRIB (43) .NE.1,REU4! 

BECOME  LEAD  OF  TWO 

1815 

ACT , ,XX (II ) .EQ.4,REU5i 

BECOME  2  IN  A  TWO- 

1814 

ACT,. 0001, XX(II).E9.0, HISS! 

THREE-SHIP  MISSION 

1817 

i 

1818 

REU2  ASSIGN, XX(II)-0,1! 

>: 
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1819 

ACTm.REFYJ 

GO  TO  HI 

18ZI 

5 

1821 

REU4  ASSIGN, ATRlB(45^i,mil)=i,r. 

CHANCE  A/C  3  TO  LEAD  OF  TWO-SHIP 

1822 

act,,,rezi; 

1823 

i 

1824 

REUS  ASSIGN, ATRIB1451 =2, XI( III =«,li 

CHANGE  A/C  3  TO  2  IN  A  TWO-SHIP 

1825 

ACT, ,,REZi; 

1826 

REZ1  ASSIGN, ATR1BU4)=2, 15 

CHANCE  FLT  TO  A  TWO-SHIP 

1827 

ACT,. 1881,, HISS! 

1828 

! 
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Fig  A.8.1  Three-Ship  Rejoin 
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TWO-SHIP  START 

TINE  IS  PROVIDED  FOR  STRAP- IN  AND  PRE-START  COCKPIT  CHECKS.  A/C 
THEN  ARE  STARTED  AND  THE  IN  THE  CHOCKS  CHECKS  ARE  PERFORMED. 

ONCE  ENGINES  ARE  STARTED  THE  ENGINE  RUN  TINE  IS  TRACKED  SO  THE 
AMOUNT  OF  RUN  TIME  CAN  BE  COMPARED  TO  NTOf  TO  DETERMINE  WHEN 
AN  A/C  FAILS.  AFTER  ALL  CHECKS  THE  A/C  ARE  EVALUATED  FOR  ANT 
FAILURES  AND  ROUTED  ACCORDINCLT.  IF  ONE  ABORTS  THE  OTHER  IS  A 
SYMPATHETIC  ABORT. 

ST2  COON. II 

ACT,TRIAG12,3,4>, 

DRAND.GT.XK(881tS2ASt  NORMAL  ACTIVITY  DURATION 

ACT,TfiIAG<4,5,8>,,S2ASi  DELATED  ACTIVITY  DURATION 

S2AS  ASSIGN, ATRIB(8!=TN0H,1>  START  OF  A/C  OPERATIONS  TIME 

ACT.TRIAC(2.3.4), 

ATRIBC45) .EQ.1.0ST4;  IN  CHOCKS  PRE-TAXI  CHECKS 

ACT,TR1AC(2,3,4!, 

ATRIBI45) .£0.2t0ST5i 

QST4  3UEUE(28) m i iS2NAi  WAIT  TO  REFORM  FLT 

\ 

QST5  QUEUE (29) i , , (S2MA! 

S2MA  HATCH. 4StflST4/S2Flf0ST5/S2F2i  REFORM  FLT 

1 

S2F1  ASSIGN, ATRIB (8) =TN0W-ATRIB(8)» 

ATRIB(141=ATRIB(14)+ATRIB(8), 

ATRIB(7)=ATRI8(?)+ATRIB(8). 

ATRIB ( 18) =USERF (51) . 

ATRIB (8) =TNOW. I »  UPDATE  A/C  OPERATING  TIME 

ACT . iUSERF (37) .GE.2.S2F3!  A/C  1  BROKEN 

ACT.. 0001.. S2S15  A/C  1  OK 

I 

S2F3  ASSIGN. II=ATRIB(48). 

XX(II)=KX<II)+2.1» 

ACT,. 0001,, S2SU 

. 

S2F2  ASSIGN, ATRIB(8)=TNOM-ATRIB(8) . 

ATRIB(14)=ATRIB(14)+ATRIB(8) . 

ATRIB(7)=ATRIB!7HATRIB(8), 

ATRIB (181 =USERF (51) . 

ATRIB (8) -TNOWt 1 » 

ACT , ,  USERF  (37 ) .  GE .  2 ,  S2F4 !  A/C  2  BROKEN 

ACT,. 0001.. S2S2I  A/C  2  OK 

! 

S2F4  ASSIGN, II=ATRIB(48), 
mii)=nui)+4,ir 
ACT,. 0001,, S2S2! 


- . . .  1 

f"'  1879 

S2S1  ASSIGN. II=ATRIB(46). 

.  ,  1881 

XX (95) =USERF (124) »2» 

:  i  1881 

ACT.tXXlII) .EQ.0.T2UP! 

;  i  1882 

ACTtiXX(II) .EQ.4  *STRPt 

'  i  1883 

ACT.. XXIII). EQ. 2. OR. 

1884 

XXIII) .EQ.6.S2L0i 

L  1885 

ACT.  »XX(II) .EQ.Z.OR. 

,  1886 

XX ( I I 1 .E9.6.PSEP! 

>  i  '  1887 

i 

1888 

S2S2  ASSIGN. II=ATRIBI46), 

:  i  1889 

XX (951 =USERF ( 1241.2! 

1898 

ACT. iXX(II) .EQ.4.0R, 

1891 

XX(II) .E8.6.PSEP! 

t  *  1892 

ACT . • XX ( I I > .E9.4.0R. 

1893 

XXIII). E8.6.S2L0I 

;  1894 

ACT ..XXIII) .E9.2.STRP! 

h  ,  1895 

ACT. .XXIII). Efl.0.T2UPi 

I  1896 

t 

V 

1897 

S2LG  ASSIGN. ATRIB 1 13) =ATRIB ( 1 ) . 

h  1898 

ATRIB(32)-0,1! 

CO 

-o 

ACT.iiSHXCi 

1988 

t 

1901 

T2UP  ASSIGN. ATRIBI3) =USERF (22) . 

1902 

ATR1B(1!=USERF(17) tli 

1903 

ACT...TNA2! 

1904 

» 

1905 

STRP  ASSIGN* XX (95) =USERF (124) .2! 

.  ‘  1906 

acTm.psoc; 

PATH  TO  S3  READ!  POOL  (ARPX) 

1907 

ACT...PSEP! 

PILOT  SEPARATED  - 

i  1908 

» 

• 

s  • 

;  • 

to.  . 

: 

f-  : 

r 

i-  i 

>  ‘ 

r.  1 

*  t 

*  | 

/ 

M 

_  - 
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Fig  A.9*l  Two-Ship  Start 
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1933 

1934 
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•  TWO-SHIP  TAXI »  MARSHALL  AND  ARM 

;  A/C  FREE  UP  THEIR  CREW  CHIEF  WHEN  THEY  TAXI  TO  MARSHALLING 

:  AND  THEN  ON  TO  THE  ARMING  AREA.  THE  A/C  ACQUIRE  AN  ARMING  CREW 
AND  ARE  ARMED.  AFTER  ARMING  AIRCRAFT  ARE  EVALUATED  FOR  FAIL- 

1  URES  AND  ARE  ROUTED  ACCORDINGLY.  IF  ONE  A/C  ABORTS  THE  OTHER  IS  A 
SYMPATHETIC  ABORT. 

TMA2  FREEtMXTEAM/lili 

ACT/45, USERF(63)+TRIAG(2>3, 4), 

BRAND. GT.XXI671.T2ST;  NORMAL  TMA  ACTIVITY  DURATION 

ACT/46. USERF (63)+TRIAG(6>8, 10) i t 

T2ST!  DELAYED  TMA  ACTIVITY  DURATION 

T2ST  GOON. 1  * 

ACT,.ATRIB(45) .E0.1.9TM4! 

ACT . iATRIB(45) .E0.2.QTM5! 

QTH4  QUEUE ( 33 I....T2MA!  WAIT  TO  REFORM  FLIGHT 

QTM5  QU£UE(34),,,,T2HAI 

T2MA  MATCH, 46, QTM4/T2F1.QTM5/T2F2I  REFORM  FLIGHT 

T2F1  ASSIGN, ATRIB(8)=TN0«,-ATRIB(8) , 

ATRIB(141=ATRIBU41+ATRIB(8), 

ATRIB(7)=ATRIB(7l+ATRIB(8) > 

ATRIB( 18) =USERF (51 ) » 

ATRIBI8) =TN0W»1T 

ACT, , USERF (37) .GE.2,T2F31  A/C  1  BROKEN 
ACT,.  0001,  ,T2SU  A/C  1  OK 

T2F3  ASSIGN, I I=ATRIB(46), 

XX(IU=XX(II)+2,1! 

ACT,. 0001,, T2S1, 

T2F2  ASSIGN, ATRIB(8)=TN0W-ATRIB(8I , 

ATRIB(14)=ATRIBU4)+ATRIB(8), 

ATRIB(7)=ATR!B{?)+ATRIB(8!i 
ATRI B ( 18) =USERF (51 ) » 

ATR1B (8) =TNOW, 1 { 

ACT, , USERF (37) .GE.2,T2F4!  A/C  2  BROKEN 

ACT,. 0001,, T2S25  A/C  2  OK 

T2F4  ASSIGN, II=ATRIB(46I, 
xx(ii)=xxui)+4,i; 

ACT,. 0001,, T2S25 

T2S1  ASSIGN, II=ATRIB(46) ,11 
ACT,,XX(II).EQ.0»TQ2i 
ACT,,XX(II).EQ.4,T2FU; 
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1978 


ACT..XX(II).Efl.2.0R, 
XX ( 1 1 > . EQ .4 1 T2L0 ! 
i 

T2S2  ASSIGN. II=ATRIB<44> » 11 
ACT . . XX ( 1 1 ) .EQ.4.0R. 

XX(II) .EQ.4.T2L0! 
ACT. .XX(II) .EQ.2.TZFU! 
ACT. .XX(II) .E8.8.T02. 

T2FU  ASSIGN* ATRIB (13>=7.1r 
ACT...DEA4! 


» 
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Fig  A. 10*1  Two-Ship  Taxi,  Marshall,  and  Arm 


A* 10. 2  Two-Ship  Taxi.  Marshall,  and  Arm 
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1  TWO-SHIP  TAKEOFF 

5  THE  FLICHT  LEAD  ACQUIRES  THE  RUNWAY  FOR  THE  FLIGHT  AND  THE 
I  FLIGHT  TAKES  THE  ACTIVE  AFTER  FREEING  THEIR  ARMING  CREWS, 
i  RUN-UP  CHECKS  ARE  PERFORMED  AND  THERE  IS  A  POSSIBILITY  OF 
i  DELAY.  A/C  ARE  EVALUATED  FOR  FAILURES  AND  ROUTED  ACCORD- 
!  INGLY.  THE  LEAD  A/C  HAY  BE  A  SYMPATHETIC  AIR  ABORT >  BUT 
i  IN  ANY  CASE  IF  ONE  A/C  ABORTS  THE  OTHER  IS  SYMPATHETIC.  IF 
i  LEAD  GROUND  ABORTS  TWO  IS  A  SYMPATHETIC  GROUND  ABORT.  THERE 
i  IS  NO  POSSIBILITY  OF  THO  TAKING  OFF  IF  LEAD  ABORTS. 

I 

T02  GOONili 

ACT » » ATRIB (45) .EQ.1.T0A2! 

ACT  . 1 *  T0G2J 

! 

T0A2  AWAIT (46) ? RUNWAY / 1 » 1 » 

ACT,. 0001 .BRAND. GT. XX168) >T0G2i 
ACT,TRIAG(.5,1.2)..TOC2» 
i 

T0C2  GOON.l! 

ACT. ,ATRIB(45).EQ.l,9T04i 
ACT  t (ATRIB145I .EQ.2.QT05.' 

! 

QT04  QUEUE (38), ...L2MAS  WAIT  TILL  FLT  IS  READY  TO  TAKEOFF 

i 

QT05  QUEUE (39). M.L2MA1 

t 

» 

L2MA  MATCH . 46 . QT04/L2F l . QT05/L2F2S  FLT  TAKEOFF 

I 

L2F1  ASSIGN. ATRIB(8)=TN0W'ATRIB(8) . 

ATRIB(14)=ATRIBU4)+ATRIB(8), 

ATRIB (7) =ATRIB (7) +ATRIB (8) . 

ATRIB(181-USERF(51). 

ATRIB48) =TNOW. 1 » 

ACT..USERF(37).GE,2»L2F35  A/C  1  BROKEN 

ACT.. 0001.. L2S1I  A/C  1  OK 

i 

L2F3  ASSIGN. II=ATRIB<46>, 

«(ii)=n(ii)+2.ii 
ACT.. 0001.1 L2SI! 

1 

L2F2  ASSIGN. ATRIB(8)=TN0H-ATRIB(8) . 

ATRIB (1*4 =ATRIB(14>+ATRIB(8) . 

ATRIB(7)=ATRI8(7)+ATRIB(8!» 

ATRI8(18)-USERFI51>. 

ATRIB (8) =TNOW* 1  * 

ACT , .USERF (37) .GE.2.L2F4! 

ACT.  .0001  nL2S2! 

f 

L2F4  ASSIGN, I I=ATRIB(46). 

nan=xx(ii)+4,n 
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ACT,  J001,,L2S2! 
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L2S1  ASSIGN, II=ATRIB(46>, 15 

ACT,1,XX(I1) .E8.4,FRS2! 
ACT,,XXdI).E8.0,FRH2! 

ACT r 1 r  XX ( 1 1 ) .E8.2.0R. 

XX(il) .EQ.6,M2GAi 

FRS2  FR££,RUNHAT/1,1! 

ACT,,, TOFT  i 

TOFT  ASSIGN, XXX951 =USERF<121) , 

XX 194) =XX (94)  4  1, 

ATRI8 ( 17) =2, XX (951 =USERF (122! , 1 ! 


ACT, TR1AGU0, 15,20)  ,,TQCK» 

!  i 

TOCK  ASSIGN, ATRIB(8)=TNOH-ATRlB 181 , 
ATRIB(7)=ATRIB(7)4ftTRIB(8) , 
ATRIB ( 18) =US£RF<51 ) , 
ATRIB(15i=ATRIB(8), 
ATRIB(8)=TNOH,l! 


ACT , ,USERF(13I .E8. 1 ,CRSHi 
ACTm.APPR! 

! 

FRH2  FREE, RUNHAT/ 1,1! 

ACT , , ,REJ2! 

, 

H2GA  FREEiRUNHAT/1,1! 

ACT,,,DEA3! 

! 

L2S2  ASSIGN, 1I-ATRIB(46),1! 
ACT,1»XX(II) .E8.4.0R. 

XXdl)  .EQ.6,DEA3! 
ACT,, XXIII). E8.0.REJ2! 
ACT, 1, XXIII), E8.2,L2S3! 

L2S3  ASSIGN, ATRIB ( 17)  =  1 , 1 J 
ACT,,,DEA3! 


THE  CODE  ABOVE  DOES  THE  FOLLOWING 
TIME  FLOWN  STH  AIR  ABORT 
TOTAL  OPERATING  TIME 
UPDATE  FAILURE  CODE 
TEHP  STORAGE  OF  FLIGHT  TIME 
RESET  ATRIB (8) 

A/C  CRASHES  (FAILURE  CODE) 

A/C  RECOVERS  TO  APPROACH 

FLT  THO  SHIP 


f\l  GRND  ABORT  A/C  1 


MX  GRND  ABORT  A/C  2 
FLT  THO  SHIP 
STH  GRND  ABORT  A/C  2 

SET  STM  GRND  ABORT  CODE 
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Fig  A. 11.1  Two- Ship  Takeoff 
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Fig  A. 11. 2  Two- Ship  Takeoff 
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211* 
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I  TWO-SHIP  REJOIN 

AFTER  TAKEOFF  THE  A/C  REJOIN  BEFORE  PROCEEDING  ON  THEIR  MISSION. 
A/C  ARE  EVALUATED  FOR  FAILURES  BEFORE  PROCEEDING  ON  THE  MISSION. 

A/C  THAT  BREAK  ARE  ROUTED  ACCORDINGLY  AND  THE  OTHER  IS  A  SYM¬ 
PATHETIC  AIR  ABORT.  A/C  MAY  JETTISON  AND/OR  BURN  DOWN  GAS 
PRIOR  TO  LANDING,  TO  GET  BELOW  MAX  GROSS  WEIGHT  FOR  LANDING.  A/C 
MAY  CRASH  IF  THEIR  FAILURE  IS  SERIOUS  ENOUGH. 

REJ2  ASSIGN, XX (95) =U3ERF  ( 121 1  * 

XX (9*) =KX (9*)  +  1, 

XX (951 =US£RF (1221,11 
ACT,TRIAG(1,2,3), 

BRAND. GT.XX(69!,R2ST; 

ACT,TRiAG(2,3,*),,R2ST; 

R2ST  GOON.l! 

ACT,,ATRIBf*5).Efi.l,QR£*i 
ACT , ,ATR1B(*5) .ES.2,QRE5! 

ORE*  QUEUE { *3 ) , , * , R2MA »  WAIT  TO  REJOIN  FLT 

0RE5  QUEUE  1*4),,,, R2MA! 

R2MA  MATCH, 46 ,QR£4/R2F1,3R£5/R2F2>  REJOIN  FLT 

R2F1  ASSIGN, ATRIB(8!=TN0W-ATRI8(8) , 

ATRIB(15)=ATRIB(8) , 

ATRIB(7)=ATRIB(7HATRIB(8) , 

ATRI B (18! =USERF (51 ) , 

ATRIB18) =TNOW, l! 

ACT , ,USERF (371 ,GE.2,R2F3i 
ACT,. 0001,, R2S1I 

R2F3  ASSIGN, I I=ATRIB(46! , 

XX(II)=XX(Ii)+2,lf 
ACT , .0001 , ,R2S1! 

R2F2  ASSIGN, ATRIB(8I=TN0W-ATRIB!8) , 

ATRIB(15)=ATRI8(8) , 

ATRIB(7)=ATRIB(7)+ATRiB(8) , 

ATRIBU8)  =US£RF (51) , 

ATRIB(8i=TN0W,l! 

ACT , ,USERF (37) ,GE.2,R2F*i 
ACT,. 0001,, R2S25 

R2F*  ASSIGN, II=ATRIBl*6), 

XX(II)=XX!II)+*,i; 

ACT,. 0001,, R2S2! 

R2S1  ASSIGN, II--ATRIBi*6),l! 


'6 


2116 

ACTr  pXX(II) .Ed.2<0R. 

2117 

XX ( 1 1) . E9 . 6 iREFY  r 

MI  AIR  ABORT 

2118 

ACT..  0001.mil). EQ.  0-Hiss; 

FLY  TWO  SHIP 

211? 

ACT . .XX(ll) .EQ.4  > R2S3 r 

STMPATHETIC  AIR  ABORT 

2120 

; 

2121 

REFT  GOON,  11 

2122 

ACT,TR1AG(10,15,Z0),.RECK; 

2123 

! 

2124 

RECK  ASSIGN* ATRIB (8) =TNOW-ATRIB (8) . 

2125 

ATRIB115) =ATR1B(15)+ATRIB18> 

, 

2126 

ATRIBC7) =ATRIB(7)+ATRIB(8) , 

2127 

ATRIB ( 18> =USERF (51 ) » 

2128 

ATRIB (8) =TNOW, 1 5 

2129 

ACT i .U5ERF ( 13> .EQ . 1 tCRSH! 

A/C  CRASHED 

2130 

actm.appr; 

A/C  TO  APPROACH  FOR  LANDING 

2131 

! 

2132 

R2S3  ASSIGN, ATRIB<171=2, 15 

ASSIGN  STH  AIR  ABORT  CODE 

2133 

ACT,,, REFT! 

2134 

i 

2135 

R2S2  ASSIGN, I I=ATRIB (46) , 1 5 

2136 

ACT,,miI).EQ.2,R2S3! 

SYMPATHETIC  AIR  ABORT 

2137 

ACT,.  0001,  XXait.EQ.0t  hiss; 

TWO  SHIP  ON  MISSION 

2138 

ACT, , XKUI). EO. 4. OR. 

2139 

XKUI).  EQ.6,  REFT,’ 

MI  AIR  ABORT 

fig  A. 12.1  Two-Ship  Rejoin 
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FLg  A.12,2  Two-Ship  Rejoin 
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2164 

2165 

2166 

2167 

2168 
2169 
2178 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 
2189 
2198 


i  MISSION 

FLIGHTS  ARE  GIVEN  THEIR  MISSION  DURATION  IN  THIS  SECTION.  A/C 
CAN  BE  ATTRITED  OR  SUFFER  BATTLE  DAMAGE.  ORDNANCE  IS  EXPENDED 
AND  EXTERNAL  FUEL  TANKS  ARE  JETTISONED  IF  SPECIFIED  CONDITIONS 
ARE  MET.  IF  AN  A/C  IS  ATTRITED  IT  IS  ROUTED  TO  THE  JUNK  FILE 
TO  BE  PRINTED  OUT  AT  THE  END  OF  EACH  DAT  FOR  VALIDATION.  THE 
SECTION  ALSO  DETERMINES  THE  FINAL  ORDNANCE  CONDITION.  WHICH  CAN 
INCLUDE  MALFUNCTIONS  WHICH  CAUSE  DELAYS  IN  SERVICE  AT  DEARM. 

AT  THE  COMPLETION  OF  THE  MISSION  THE  MAINTENANCE  FAILURE  CODE 
IS  UPDATED  AND  EVALUATED  IN  CONJUNCTION  WITH  ANT  BATTLE  DAMAGE 
WHICH  MAT  HAVE  OCCURRED.  THE  A/C  MAT  CRASH  DEPENDING  ON  THE 
THE  LEVELS  OF  FAILURES  AND  THE  PARTICULAR  SYSTEMS  WHICH  ARE 
AFFECTED.  IF  THE  AIRCRAFT  IS  NOT  ATTRITED  AND  DOES  NOT  CRASH 
IT  IS  ROUTED  TO  APPROACH  (APPRS  IN  ORDER  TO  ACQUIRE  THE  RUNWAT 
FOR  LANDING. 

MISS  ASSIGN, XX(92)=US£RF(l5M!  FLY  MISSION 

ACT, ,ATR1B(16)  .EQ.99.CRSH!  A/C  CRASHED  DUE  TO  ENEMT  ACTION 
ACT i XX (92) i.MlSl! 

MIS1  ASSIGN. ATRIB 18! =TN0W-ATRIB(8I . 

ATRIB(7)=ATRIBI7)+ATRIB(8). 

ATRIB ( 18) =USERF (51 ) » 

ATRIB (15) =ATRIB(15)+ATRIB(8) . 

ATRIB (8) =TNOW» l »  CALCULATE  MISSION  TIME 

UPDATE  A/C  OPERATING  TIME 
UPDATE  FAILURE  CODE 
UPDATE  AIRBORNE  TIME 
RESET  TO  TNOW 

ACT , .USERF ( 14 1 .EQ.l.CRSHi  A/C  CRASHED  DUE  TO  MX  FAILURE 

ACTm.APPR,'  TO  APPROACH 

APPR  AWAIT (47) ,RUNWAY/t,l!  CLEARANCE  TO  LAND  ONE  A/C 

ACT. .5.ATR1B139) ,NE.0.CL03i 
ACT, .5iATRIB(38) .NE.8.CL02I 
ACT,.5,,CL0W 

CL03  COLCT,  INTVU39)  .PILOTFLYT IME03, ,  1 1 
ACT,,, LAND! 

CL82  COLCT , INTVL (38) , PILOTFLYTIME02 , ,  1 ! 

ACT,,, LAND! 

CL01  COLCT ,  INTVL  (37 ) ,  P I LOTFLY  T IME01 , ,  1 ,’ 

ACT,,, LAND! 
i 

CRSH  ASSIGN, ATRIB(2)=USERF(19),i;  DELETES  FROM  CURRENT  INVENTORY 

ACT i , ,CRS2i 

, 

CRS2  AWAIT(99),JUNK,i;  FILE  STORING  CRASHED  A/C  FOR 

I  STATISTICS  TROM  DAILY  CLEAN  UP 

I  ROUTINE 


TERMINATE! 


Fig  A. 13*1  Mission  and  Approach 
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i  LANDING.  ROLLOUT.  TAX  I  TO  DEARM,  DEARM 
i  AFTER  THE  A/C  HAS  LANDED  AND  ROLLED  OUT  A  DETERMINATION  IS  MADE 
!  WHETHER  IT  CAN  TAXI  OR  IF  IT  hUST  BE  TOWED.  IF  IT  MUST  BE  TOW- 
.  ED  THE  PILOT  IS  SEPARATED  AND  RETURNED  TO  HIS  SQUADRON  AREA. 

I  FOR  EITHER  CASE  THE  A/C  GOES  TO  THE  DEARM1NG  AREA  WHERE  IT 
i  ACQUIRES  A  DEARMINC  CREW.  IF  THE  A/C  WAS  TOWED  AND/OR  IT  HAD 
i  A  MAINTENANCE  PROBLEM.  IT  IS  ROUTED  TO  MAINTENANCE  FOR  REPAIR. 

!  A/C  THAT  CAN  TAXI  PROCEED  TO  THEIR  SQUADRON  AREA  AND  HOTPIT 
5  REFUEL  ON  THE  WAT  IF  IT  IS  CONVENIENT  FOR  THEIR  TAXI  ROUTE. 

I  A/C  WHICH  HAVE  ORDNANCE  MALFUNCTIONS  ASSIGNED  AT  MISSION  EIPER- 
i  IENCE  LONGER  SERVICE  TIMES. 

» 

LAND  ASSIGN. ATRIB (8) =TNOW-ATRIB (8) » 

ATRIB(71-ATRI8(7I*ATRIB(8I, 

ATRIB(18)=USERF(51) , 

ATRIB(15)=ATRIB(15)+ATR1B(8) . 

ATRI8(8)=TN0W,ATRIB(13)=12, 

XX(95)=USERF(124) . 

ATRIB (14) =0.2! 

ACT. TRIAC15. 10.12), 

USERF ( 12) .EQ. 1 ,MSFR! 

ACT.USERFI67), 

USERF(12).£Q.1,PSEP! 

ACT.li.LANl! 

! 

MSFR  FREE.RUNWAT/l.li 
ACT,,, DEAR! 

; 

DEAR  AWAIT149! .DEARM/l.l! 

ACT/47, USERF (75!,, DEA1! 

DEA1  FREE, DEARM/ 1,1! 

ACT,,,DEA2i 

; 

DEA2  ASSIGN, ATRIB(32)  =0. ATRIBU3)  =  10. 1  »A/C  W/O  PILOT  FROM  DEARM  AREA 
ACT,,, MAIN! 
i 

LAN1  ASSIGN, ATRIB(8)-TN0W-ATRIB<8) , 

ATRIB(7!=ATRIB(7)+ATRIB(8) , 

ATRIB (18) =USERF(51 ) , 

ATRIB(14)=ATRIB(14)+ATRIB(8) , 

ATRIB (8) =TNOW, ATRIB ( 13) =10 , 1 »  AT114)  IS  GROUND  RUN  TIME 
!  AT (13)  IS  LOCATION  CODE 

ACT,,,MSFli  a/c  clears  runwat 


ATRIBU3)  IS  LOCATION  CODE 

A/C  BROKE  ON  RNWT.TOU  TO  DEARM 

FREE  PILOT  FROM  TOWED  A/C 
A/C  CLEARS  RUNWAT  NORMALLY 

A/C  HAS  CLEARED  RUNWAT 

WAIT  FOR  DEARM  CREW 

FREE  DEARM  CREW 


HSF1  ASSIGN, XX(95)=USERF(124),i; 
ACT,,,MSF2J 


MSF2  FREE.RUNWAT/1,2; 

ACT, ,USERF(12).EQ.l, DEAR?  A/C  BROKE, NEEDS  TOW  FROM  DEARM 


r 
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t 


im 

2243 

2244 

2245 
2244 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 
2254 

2257 

2258 

2259 

2240 

2241 

2242 

2243 

2244 

2245 
2244 

2247 

2248 

2249 

2270 

2271 

2272 

2273 

2274 

2275 
2274 

2277 

2278 

2279 

2280 
2281 
2282 
2283 


ACT > tUSERF ( 12)  .EQ.l»PSEPi  FREE  PILOT  FROM  TOYED  A/C 
ACT  t  r  tDEA3>  A/C  OK 

DEA3  AWAIT (48)  ,DEARH/l»li  WAIT  FOR  DEARH  CREW 

ACT/48 1  (/SERF  <  75  i , ,  0EA4 ,' 

DEA4  FREEiDEARM/lili  FREE  DEARM  CREW 

act,,,dea5; 

DEA5  ASSICNi ATRIB (8) =TNOW-ATRlB (81 i 
ATRIB (7) =ATRIB47S  +ATRIB (8> i 
ATRIB(18)=U$ERF(51)> 

ATRIB114) =ATRIB(14)+ATRIB(8) i 


XX (95) =USERF ( 124) i 
ATRIB(8)=TNOW,ATRIB(13)=10,2 
ACT i iUSERF (37) .CE. 2. AND. 

USERF (12) .EQ.l.GR. 

ATRIB(14).GE.2.AND. 

USERF(12).£Q.l,DEA7i 
ACT i i USERF (37) .GE.2.AND. 

USERF(12).EQ.0.OR. 

ATRIB ( 14) .GE.2.AND. 

USERF ( 12). EQ.0.MAIN5 
ACT, USERF (47), 

USERF (37). GE.2.AND. 

USERF ( 12) .EO. 1 .OR. 

ATRIBI14) .GE.2.AND. 

USERF ( 12 ).EQ.l,PSEPi 
ACT,, USERF (371. LT.2.AND. 

ATRIB ( 14) .LT.2,DEA4i 

! 

DEA7  ASSIGN, ATRIB02)  =0,15 
ACT,,, MAIN! 

i 

DEA4  ASSIGN, ATRIB (3) =USERF (21 ) , 1  i 
ACT, USERF (44), 

USERF (77) .Efl.liHOTi 


ACT, USERF (41 l,,SQPAi 


A/C  BROKE/DAMAGED, NEEDS  TOW 

A/C  BROKE/DAMAGED,  CAN  TAXI 

FREE  PILOT  FROM  TOWED  A/C 
A/C  NORMAL  TAXI 
NO  PILOT  IN  TOWED  A/C 

GET  SQ  PARKING  SPOT 

NON-SHELTERED  A/C  FROM  A  SQ 
CONVENIENTLY  LOCATED  TAXI  TO  HOT 

SQ  NOT  CONVENIENT  TO  HOTPIT 
PROCEED  TO  SQ  PARKING 
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2289 

2290 

2291 

2292 

2293 

2294 

2295 
2298 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 
2308 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 
2318 

2317 

2318 

2319 

2320 

2321 

2322 


i  HOTPIT  REFUELING 

!  THOSE  A/C  WHOSE  SQUADRON  AREA  IS  CONVENIENTLY  LOCATED  ON  THE 
1  TAXI  ROUTE  OF  A/C  RETURNING  TO  THEIR  AREAS  REFUEL  AT  HOTPIT  IF 
!  FUEL  IS  AVAILABLE  AND  A  HOTPIT  IS  AVAILABLE.  IF  THE  A/C  BREAKS 
1  TAXIING  TO  OR  DURING  HOTPIT  REFUELING.  THE  A/C  HILL  TAXI  OR  BE 
1  TONED  TO  MAINTENANCE.  IF  IT  IS  TOWED  THE  PILOT  IS  TAKEN  OUT 
1  OF  THE  A/C  AND  ROUTED  TO  HIS  SQUADRON  AREA.  A/C  PROCEED  TO 
i  THEIR  SQUADRON  AREA  AFTER  COMPLETING  HOTPIT  REFUELING. 

HOT  ASSIGN, ATRIB(8)=TN0W-ATRIB<8), 

ATRIB(7)=ATRIB(7)+ATRIB<8i . 

ATRIB(14)--ATRIB(14!+ATRIB(8). 

ATRIB(18I=US£RF(51>, 

XX(?5)=U$ERF(124), 

ATRIB (8>  =TNOW»ATRIBI 13) =1 1 .2JUPBATE  TIME 
ACT . USERF ( 81 ) » USERF (37 1 . LT . 2 . AND . 

NNQI50) .GT.0.OR. 

USERF (37). LT.2. AND. 

XX (80) .LE.0.SQPAJ  BALK  FROM  HOTPIT.  A/C  IN  LINE 

ACT. .USERF (37) .GE.2.AND. 

USERF (12) .EQ.0.HOT8I  MX  PROB.NO  HOT  PIT. TAXI  OK 
ACT,, USERF (37). GE.2. AND. 

USERF ( 12) .EQ.1.H0T5!  A/C  BROKE  -  NEEDS  TOW 
ACT .USERF (67 ) , 

US£RF(37). GE.2. AND. 

US£Rffl2).£Q, l.PSEPI  FREE  PILOT  FROM  TOWED  A/C 
ACT , , USERF (37) .LT.2. AND. 

NNG(50) .EO.0.AND. 

XX (80) .GT.0.HOTP!  GO  TO  HOTPIT  REFUEL 

HOTP  AWAIT(50),HOTPlT/l,li  AWAIT  A  FREE  PIT 

ACT , , iHOTl 1 

HOT 1  ASSIGN, ATRIB(15)=USERF(71I, 

XX (80) =XX (80) -ATRIB (15! , If  SET  FUEL  REQUIRED 
ACT/4, USERF(78!,.H0T3i  HYDRANT  REFUELING  SERVICE 

HOTS  FREE.HOTPIT/l . 1 1  FREE  PIT  FOR  NEXT  A/C 

ACT , . » HOT  4  ? 
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2324 

2325 
2328 

2327 

2328 

2329 

2330 

2331 

2332 

2333 


HOT 4  ASSIGN, ATRIB (8) =TN0W-ATRIB(8) , 

ATRIB(7)--ATRIB(7)+ATRIB(8), 

ATRIB( 18) =USERF (51 ) > 

ATRIB (8) =TNOW, ATRIB ( 14 )=0» 

XX(95)=USERF(124), 

ATRIB ( 15) =0. l»  CHK  FOR  FAILURE,  RESET  TIME,  FUEL 

ACT, USERF (87) » 

USERF137). GE.2. AND. 

USERF (1 2). EQ. l.PSEPI 
ACT,, USERF(37), GE.2. AND. 


FREE  PILOT  FROM  TOWED  A/C 


2334 

USERF112)  .EQ.l.HQT5i 

A/C  BROKE  -  NEEDS  TOM 

2335 

ACT..USERFI37)  .GE.2.AND. 

2336 

U3ERF  (121  ,£8.8. HOTS! 

A/C  BROKE  BUT  OK  TO  TAXI 

2337 

ACT.USERF(61) ..SQPAt 

A/C  TO  SO  PARKING 

2338 

i 

2339 

HOTS  ASSIGN. ATRIBI32) -0i 1 ! 

NO  PILOT  IN  TOWED  A/C 

2348 

ACTi i .HOTS! 

2341 

• 

1 

2342 

HOTS  ASSIGN. ATRIBI3) =US£RF (22) , 1 i 

GIVE  UP  SQ  PARKING.  GO  TO  RAIN 

2343 

ACT.. .main; 

2344 

! 

I 


I 


Fig  A.15.1  Hotpit  Refueling 
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i  ENGINE  SHUT  DOWN 

1  WHEN  AN  A/C  REACHES  ITS  SQUADRON  AREA  IT  IS  PARKED  IN  ITS 
!  ASSIGNED  SPACE  AND  THE  ENGINE  IS  SHUT  DOWN.  THE  PILOT  LEAVES  THE 
!  A/C  (PSEP) .  IF  THE  A/C  EXPERIENCED  A  FAILURE  FNROUTE  TO  THE 
i  SQUADRON  AREA  IT  IS  SCHEDULED  FOR  HAINTENANCE  (SQ  LEVEL 
I  OR  HHT) .  A/C  THAT  ARE  TURNABLE  ACQUIRE  A  CREW  CHIEF  AND  BEGIN 
1  TURNAROUND  SERVICING.  THE  A/C  STATS  IN  THE  SQUADRON  AREA  FOR 
I  HAINTENANCE. 

i  AFTER  ACQUIRING  A  CREW  CHIEF  A  DETERMINATION  IS  HADE  WHETHER  THE 
!  A/C  REQUIRES  RECONFIGURATION.  IF  IT  DOES.  THE  A/C  IS  RECON- 
1  FIGURED  AND  PROCEEDS  TO  TURNAROUND  PROCESSING  IN  THE  PARALLEL 
!  SERVICE  OPERATION  iPSO).  IF  NO  RECONFIGURATION  IS  REQUIRED 
I  THE  A/C  PROCEEDS  DIRECTLT  TO  PSO. 


3QFA  ASSIGN. ATRIB(8) =TN0W-ATRIB18) . 

ATR IB ( 7) =ATRIB (7) +ATRI B (8) . 

ATRIB ( 14) =ATRIB ( 14) +ATRIB (8 ) . 

XX (95) =USERF ( 124) . 

ATRIB  < 18) =USERF (51 ) *2! 

ACT... PSEP I  SEPARATE  PILOT  AT  ENC.  SHUTDOWN 

ACT , .USERF (37) .GE.2.SPMK!  TO  SQ  MAIN!  -SEE  IF  MMT  REC'D 

ACT...HITH;  AWAIT  CREW  CHIEF  ASSIGNMENT 

PSEP  ASSIGN. ATRIB(8)=ATRIB(38>. 

ATRIB (9) =ATRIB (39) ,ATRIB(l0l=ATRIBi40) . 
ATRIB(U)=ATRIB(41) ,  15 


PSE1  ASSIGN, ATRIBll) =ATRIB(3l) , 

ATRIB (2) =ATRIB(32) .ATRIB (3) =ATRIB (33) , 
ATRIE(4)=ATRIB(34! , ATRIB ( 5) = ATRIB ( 35) , 
ATRIB(6)=ATRIB(36) , ATRI B (7) =ATRIE (37) , 
ATRIB ( 12) =ATRIB (42) , 

XX (95) =USERF( 123) » 1 » 


ACT . , ATR I B (32) .EQ,0.PSE2i 
ACT, 10, ATRIBll). EQ.1.PL1I 
ACT, 10, ATRIBll). EQ. 2, PL21 
ACT, 10, ATRIBll). EQ. 3, PL3i 
ACT, 10, ATRIBll). EQ. 4, PL4I 
ACT, 10, ATRIBll). EQ. 5, PL5( 
ACT, 10, ATRIBll). EQ. 6, PL6! 

PSE2  TERMINATE', 


HXTN  AHA  IT (51 ) iMXTEAH/iill 

ACT, , ATRIBll 7) ,EQ. 1 <PSOi 
ACT,TRIAG(3,4,5),,hITli 

HXT 1  ASSIGN, ATRIB18) =USERF(73) » 
(X (951 -USERF (125) , 


RECREATE  PILOT 

NO  PILOT  WAS  IN  THE  A/C 

SMOKE  &  A  COKE,  BACK  TO  SQ  RDYPOOL 


AWAIT  CREW  CHIEF 

A/C  WAS  STM  GRND  ABORT,  TO  PSD 

Ml  POST-FLIGHT  ACTIVITY 


90 


* 


/ 


2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 


ATRIB(15)sUSERF171hli  DETERH1NE  CONFIGURATION  REO'B 
ACTiTRIAG(3»4i5)» 

ATRIB(8) .E3.ATRIBU2)  iPSOINO  RECONFIG  REQ'D. 
ACTiTRIAG(3i4)5) ? iRECOi  MI  POST-FLIGHT  ACTIVITY 


RECO  ASSlCNt ATRIBT 15) -USERF (72) • 

ATRIB( 12) =ATRIB (8) » 1 5  RECALC  FUEL  REQ'D.  CONFIG  SET 

ACT/1  iUSERF(76)nPS0f  RECONFIG  SERVICE 


t 


91 


1 


2404  ;  TURNAROUND  SERVICE  OPERATION 


2405 

>  THE  TURNAROUND  SERVICE  OPERATION  IS  A  PARALLEL  SERVICE  OPERA- 

2404 

1  TION  IN  WHICH  THE  SERVICES  ARE  PERFORMED  CONCURRENTLY .  THE 

2407 

i  SERVICES  ARE  REARMING.  MAINTENANCE  POST-FLIGHT  AND  REFUELING) 

2408 

i  IF  REQUIRED.  THE  A/C  ACQUIRES  A  REARMING  TEAM)  RECEIVES  ITS 

2409 

i  ORDNANCE  AND  THEN  FREES  THE  TEAM. 

IF  THE  AIRCRAFT  WAS  A  SYMPA- 

2410 

i  THETIC  ABORT  AND  ALREADY  HAS  ORDNANCE  A  PATH  IS  AVAILABLE 

2411 

i  AROUND  REARMING.  AT  THE  SAME  TIME  THE  CREU  CHIEF  PERFORMS  THE 

2412 

i  MAINTENANCE  POST-FLIGHT)  THE  AIRCRAFT  IS  REFUELED)  IF  REQUIRED. 

2413 

i  IF  THE  A/C  IS  PARKED  IN  A  SHELTER  IT  IS  REFUELED  THERE.  IF  THE 

2414 

i  AIRCRAFT  IS  NOT  SHELTERED  IT  REQUIRES  A  FUEL  TRUCK.  IF  NO  FUEL 

2415 

i  IS  AVAILABLE  AND  THE  A/C  REQUIRES  FUEL)  IT  WAITS  FOR  REFUELING 

2414 

i  IN  THE  PARKING  SPACE.  WHEN  ALL  THREE  SERVICES  ARE  COMPLETED 

2417 

i  THE  CREW  CHIEF  IS  RELEASED  AND  THE  AIRCRAFT  IS  REASSEMBLED  AT 

2418 

!  THE  MATCH  NODE  AND  IT  IS  READY  TO  GO  THROUGH  THE  STATISTICAL 

2419 

i  ROUTINE  TO  THE  AIRCRAFT  READY  P"DL  FOR  ITS  SQUADRON. 

2420 

2421 

PSO  GOON) 3 i 

TURNAROUND  SERVICING  ROUTINE 

2422 

ACT»ATRIB(9).NE.1.0R. 

2423 

atrib<10>.ne.i,rear; 

TO  REARM)  IF  REQ’D 

2424 

ACT »  jATRIB (9) .EQ. 1 . AND. 

2425 

ATRIBI10) ,EQ.1,REA2) 

IF  ARMED)  BRANCH  AROUND  REARM  SERVICE 

2424 

ACT/3)TRIAG(4)5)41))MIPF) 

MX  POST-FLIGHT 

2427 

ACT))ATRIB<15>.EQ.0)REF3) 

A/C  HOT  PIT  REFUELED)  SKIP  REFUE 

2428 

ACT  >  >  ATRI B ( 15) .NE.0.AND. 

2429 

xx (40) . gt.0)Gref; 

A/C  NEEDS  GAS  AND  GAS  AVAILABLE 

2430 

ACT) )ATRIB(15),N£.0,AND. 

2431 

XX (40) .LE.0)REF7! 

NEEDS  GAS.  NONE  AVAIL.  CLOSE  GATE 

2432 

! 

2433 

REAR  AWAIT (52) > REARM / 1 ) 1 f 

WAIT  FOR  REARM  CREW 

2434 

ACT /2)USERF(74)+3) f REA1 1 

REARM  SERVICE 

2435 

! 

2434 

REA1  FREE > REARM/1 >1! 

RELEASE  ARMING  CREW 

2437 

ACT) )>REA2» 

2438 

! 

2439 

REA2  QUEUE(55l))))PSMAi 

Q  BEFORE  MATCH.  END  CONCURRENT 

2440 

! 

TURNAROUND  SERVICE 

2441 

! 

2442 

MXPF  QUEUE(54I))))PSMA! 

Q  BEFORE  HATCH 

2443 

! 

2444 

GREF  GOON) If 

2445 

ACT  f » ATRIB (3) ,EQ.1)REF1! 

REFUEL  IN  A  SHELTER 

2444 

ACT) > )REFU; 

REFUELED  BY  A  TRUCK 

2447 

i 

2448 

REF1  ASSIGN)  XU  (40)  =XX  (40)  -ATRIB  (15) 

1 .REDUCE  POL  BY  AMOUNT  USED 

2449 

ACT/5>USERF(78) >)REF2I 

SHELTER  REFUEL  SERVICE 

2450 

i 

2451 

REF 2  ASSIGN) ATRIB! 14) =0)ATRIB( 15) =0 

1! RESET  TIME  KEEPERS 

2452 

ACT  >  t )REF3J 

2453 

i 

i 
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Z454 

REF3  QUEUE<57),,,,PSHAI 

Q  BEFORE  NATCH 

2455 

5 

2454 

REFU  AWAIT (53) iREFUEL/1 ? 1 

WAIT  FOR  FUEL  TRUCK 

2457 

i 

2458 

REF 4  ASSIGN. XX (40) =11 (40) -ATRIB ( 15) > 

1 {REDUCE  POL  8!  AMOUNT  REfl’D 

2459 

ACT/4.TRIAG(5.8il2)+3i .REF55 

TRUCK  REFUELING  SERVICE 

2441 

i 

2441 

REFS  FREEtREFUEL/ 1 » 1 » 

RELEASE  FUEL  TRUCK 

2442 

ACT...REF2! 

2443 

i 

2444 

REF7  CLOSE.FUELAVAL.il 

NO  FUEL  AVAILABLE,  CLOSE  GATE 

2445 

ACT...REF8! 

2444 

I 

2447 

REF8  AMAIK54)  .FUELAVAL.il 

WAIT  FOR  FUEL 

2448 

ACT,., GREF I 

2449 

I 

2470 

PSNA  HATCH » 2 , REA2/TERH , 

2471 

HXPF /TERH . REF3/PS0C 1 

A/C  DONE  WITH  CONCURRENT  SERVICE 

2472 

1 

2473 

1 

2474 

PSOC  FREE, MITEAM/ 1,11 

RELEASE  CREW  CHIEF 

2475 

ACT , .ATRIB (27) .NE.0.CL09! 

2474 

ACT,, ATRIB (24). NE.0.CL08I 

2477 

ACT...CL07I 

2478 

■ 

» 

2479 

CL09  COLCT » INTVL (27) ,TURNS£RVDAT03» , 

11 

2480 

actm.psoi; 

2481 

1 

2482 

CL08  COLCT, INTVL (24) .TURNSERVOAT02, , 

11 

2483 

ACTm.PSOXI 

2484 

1 

» 

2485 

CL07  COLCT, INTVL (25) .TURNSERVDAT01 , , 

11 

2484 

ACT...PSOX; 

2487 

f 

2488 

PSOX  ASSIGN, ATRIB<17)=0, 

2489 

ATRIB ( 13) =ATRIB( 1 ) , 1 1 

RESET  STM  CODE  AND  LOCATION  CODE 

2490 

ACT, ,USERF(17) .EQ.l .ARP1I 

A/C  TO  THEIR  SO  A/C  READTPOOL 

2491 

ACT , .USERF (17) .E8.2.ARP2! 

2492 

ACT , .USERF ( 17) .EQ.3.ARP3I 

2493 

ACT , .USERF (17) .E0.4.ARP4, 

2494 

ACT , .USERF (17) . EQ.5.ARP5I 

2495 

ACT . .USERF(17I ,E8,4.ARP4! 

2494 

» 
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Fig  A*17#2  Turnaround  Service  Operation 


i  MAINTENANCE  CONTROL 

A/C  WHICH  REQUIRE  MAINTENANCE  ARE  INITIALLY  DIVIDED  INTO  3 
CROUPS-  THOSE  WITH  FAILURE  LEVELS  LESS  THAN  4  (MINOR).  THOSE 
WITH  FAILURE  LEVELS  EQUAL  TO  OR  GREATER  THAN  4  (MAJOR) .  AND 
THOSE  WITH  BATTLE  DAMAGE.  A/C  WITH  MINOR  PROBLEMS  ARE  SENT 
TO  SQUADRON  LEVEL  MAINTENANCE  FOR  SERVICE.  A/C  WITH  BATTLE 
DAMAGE  ARE  EITHER  SCRAPPED  (USE  FOR  KBALL  OR  SEND  TO  DEPOT) 

OR  THEY  ARE  GIVEN  COMMENSURATE  MAINTENANCE  FAILURE  CODES  AND 
ROUTED  ON  TO  MAINTENANCE  CONTROL  (MCON).  A/C  WITH  MAJOR 
PROBLEMS  GO  TO  MCON. 

AT  MCON  THE  DECISION  IS  MADE  ON  WHERE  TO  REPAIR  THE  A/C  WITH 
MAJOR  MAINTENANCE  PROBLEMS.  THE  DECISION  IS  BASED  ON  THE 
FOLLOWING  RULES- 


1  -  REPAIR  AT  WING  IF  A  REQUIRED  SHOP  IS  FREE. 

2  -  REPAIR  WITH  MMT  IF  A  REQUIRED  MMT  IS  FREE. 

3  -  WAIT  FOR  REPAIR  AT  WING  IF  WAITING  SPACE  IS  FREE. 

4  -  GO  TO  SQUADRON  MAINTENANCE  AND  REPAIR  MINOR  PROBLEMS, 

THEN  WAIT  FOR  MMT. 

AS  IT  IS  THROUGHOUT  THE  MODEL,  AN  A/C  CAN  EITHER  TAXI  OR  BE 
TOWED  TO  THE  CORRECT  FACILITY. 

MAIN  ASS IGN , XX (95) =USERF (125) , 1 »  MAINTENANCE  CONTROL  ROUTINE 

ACT , ,USERF (37) .LT.4.AND. 

ATRIB(U)  .EQ.DiSPi  TO  SQ  (NO  BATTLE  DAMAGE) 
ACT, ,ATRIB(i&).EO.B.AND. 

USERF(37).GE.4,MC0NI  TO  MX  CONTROL  SORTING 

ACT,TRIAG(10, 15,38) , 

ATRIBU6) ,NE.8>BADAi  TO  BATTLE  DAMAGE  ASSESSMENT 


SP  ASSIGN, ATRIB(3)=USERF(2l),l!  GET  A  PARKING  SPACE 
ACT ,USERF (65) , 

ATRIB (32) .EQ.B.SPMX!  GET  A  CREW  CHIEF 
ACT,US£RF(41),,SPT1!  GO  TO  ENGINE  SHUT  DOWN  FOR  SQ  MX 


SPT1  ASSIGN, ATRIB (3) =TNOW-ATRIB (8) , 

ATRIB (7) =ATRIB<7) +ATRIB (8) , 

ATRIB < 14) -ATRI B< 141 +ATRIB(8!> 

XX(95)=USERF(124), 

ATRIB(18)=USERF (51), 2!  RESET  CODES, ENGINE  SHUT  DOWN,  SQ  MX 
ACTuiPSEPi  SEPARATE  PILOT  FROM  A/C 

ACT.mSPMU  GET  A  CREW  CHIEF 


SPMX  AWAIT(98),MXTEAM/1,15 
ACT.mSMXCJ 


WAIT  FOR  A  CREW  CHIEF 


\***  AT*"1- 
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I 

SHXC  COON i 1 i 

« 

» 


BRANCH  TO  HHT  OR  LESSER  REPAIRS 
IF  NO  HHT  IS  AVAILABLE  I  IF  REQ) 


ACT,,USERF(U2).EQ.l,DLHTi  GO  TO  HHT  ROUTINE  IF  REQ'D 
ACTmSHBi  SQHXt  HHT  NOT  REQ’D  OR  UNAVAIL 


DLHT  COONili 

ACT/58,  TRIAC(12, 15,24)  , 

ATRIBdB)  .EQ.l  ,HHT!  DOWNLOAD  ORDNANCE 
ACT,,, HHT! 


SHB  ASSIGN, ATRIB(17)=USERF(39) ,1! 
ACT,iATRIB(l).£Q.liSMl! 
ACTiiATRIBd)  .EQ.2,SH2! 
ACT,,ATRIB(1! .EQ.3.SH3! 
ACT,,A?RIB(l).E0.4,SH4i 
ACT , , ATR IB ( 1 ) .E8.5,SH5i 
ACTnATRlBdl  .EQ.6,SH6! 

HCON  GOON , 1 1 

ACT , , USERF (111) ,EO. 1 ,HCyi! 

ACT,, USERF (1121. EQ.ltSP! 
ACT,,NNQ(62).LT.2,HCU1! 

ACT , , ,SPi 

HCU1  ASSIGN, ATRIB43) =4,1? 

ACT, USERF (66), 

ATRIB(32) .EQ.8,DLWG! 
ACT, USERF (62),, HCN2! 


ROUTE  TO  APPROPRIATE  SQ  HX  AREA 
A/C  TO  IT’S  SQ  HX  AREA 


ROUTE  TO  APPROPRIATE  HX  AREA 
TO  UING  HX  IF  AVAILABLE 

IF  NO  UING,  TO  HHT  IF  AVAILABLE 
NO  UING  OR  HHT  SO  UING  Q  IF  OPEN 
IF  ALL  ELSE  FAILS,  TO  SQ  FOR  HHT 

PARKED  AT  UING  HX 

ADD  TOU  TIHE 
ADD  TAXI  TIHE 


HCU2  ASSIGN, ATRIB(8)=TN0W-ATRIB(8) , 

ATRIB17) =ATRIB (7) +ATRIB (8) , 
ATRlB(14)=ATRIB(14)+ATRIB<8t, 

XX(95)=U$ERF(124), 

ATRIB(18)=USERF(5l),2!  RESET  CODES 

ACT,, ,DLUG?  A/C  INTO  UING  HX 

ACT, , ,PSEPJ  SEPARATE  PILOT  FROH  A/C 


DLUG  COON, li 

ACT/49,  TRIAGdZr  15,24), 

ATR I B ( 18) .EQ.liWCI  DOUNLOAD  ORDNANCE 

ACT,,,UG!  PROCEED  DIRECT  TO  HG  HX 


BADA  ASSIGN, ATRIE(18)'JSERF(53) , 

XX(95)=USERFd24),2i  CHANGE  HX  FAIL  CODE  AS  A  FUNCTION 

OF  BATTLE  DAHAGE 

ACT,, USERF (37) .CE. 4. AND. 

ATRIB(18).NE. 999999, HCONfA/C  IS  REPAIRABLE 
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ACT i tUSERF (37) .LT . 4 .AND. 

ATRIBU8)  ,NE. 999999 1 SP!  TO  SQ  HI 
ACT > .ATRIBI18) .E9. 999999. AND. 

ATRIB(32) .NE.8.8.PSEP!  SEPARATE  PILOT  BEFORE  JUNKING  A/C 
ACT. .ATRIB(18).Efl. 999999. SRAP5TO  FILE  FOR  DAILY  CLEAN  UP 

(ATTRITED. CRASHED.  OR  NON¬ 
REPAYABLE) 

SRAP  ASSIGN.ATR!B(32)=8.iS  REHOVE  PILOT 

ACT. ..CRSHi 
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Fig  A. 18*2  Maintenance  Control 


Fig  A»l8*3  Maintenance  Control 
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I  WING  MAINTENANCE 

AN  A/C  ARRIVING  AT  WING  MAINTENANCE  IS  ASSIGNED  A  PRIORITY  CODE 
BASED  ON  THE  LEVEL  AND  NUMBER  OF  SYSTEMS  REQUIRING  REPAIR.  ALL 
LEVEL  FOUR  AND  FIVE  SYSTEMS  ARE  ADDED  TO  YIELD  A  NUMBER.  A/C 
ARE  PROCESSED  BASED  ON  LOH  VALUE  FIRST  OF  THE  NUMBER.  (FIX  THE 
EASIEST  ONES  FIRST)  IF  A  SHOP  IS  OPEN  THE  A/C  IS  PROCESSED. 

ELSE  IT  GOES  TO  THE  WAITING  POOL.  WHEN  AN  A/C  COMPLETES  SERVICE 
IT  FREES  THE  WING  SHOP,  RESETS  ITS  FAILURE  CODE  AND  NTOF  (FOR 
THE  SYSTEMS  REPAIRED)  AND  SIGNALS  THE  A/C  WAITING  IN  THE  WAITING 
POOL  THAT  A  WING  SHOP  IS  FREE.  IF  A/C  WAITING  FOR  A  WING  SHOP 
CAN  NOT  USE  THE  WING  SHOP  WHICH  WAS  FREED,  THE  A/C  WAITING  IN 
THE  MMT  POOL  ARE  NOTIFIED.  IF  ANY  OF  THOSE  A/C  CAN  USE  THE  OPEN 
WING  SHOP,  THE  A/C  IS  TOWED  TO  WING.  ALL  A/C  UNABLE  TO  USE  THE 
WING  SHOP  FROM  BOTH  WING  AND  MMT  WAITING  POOLS  ARE  RETURNED  TO 
THE  APPROPRIATE  WAITINC  POOL  (THE  ONE  THEY  CAME  FROM). 

IF  THE  A/C  WHICH  FREED  THE  WING  SHOP  HAS  BEEN  COMPLETELY  REPAIRED 
IT  PROCEEDS  TO  TURNAROUND  SERVICE.  IF  IT  STILL  HAS  A  MAJOR  PROB¬ 
LEM,  IT  TRYS  TO  GET  INTO  THE  REQUIRED  WING  SHOP  OR  WAITS  IN  THE 
WING  WAITING  POOL. 

IT  IS  ASSUMED  THAT  ALL  MINOR  PROBLEMS  AN  A/C  MAY  HAVE  ARE  REPAIRED 
WHILE  THE  A/C  IS  IN  SERVICE  AT  WING.  NO  ADDITIONAL  DELAY  IS 
ADDED  FOR  THIS  SERVICE,  THE  FAILURE  CODES  AND  NTOFS  ARE  JUST  RESET. 

THE  WING  SHOPS  SERVICE  THE  FOLLOWING  PROBLEMS- 


1  -  HYDRAULICS/PNEUMATICS  AND  AIRFRAME 

2  -  ENGINE/FUEL 

3  -  ELECTRICAL  AND  COMM/MAV/ INSTRUMENTS/RADAR 

4  -  FIRE  CONTROL /WEAPONS  RELEASE 

WG  ASSIGN, ATRIE(10)=0, 

ATRIB (17) =USERF (38) , 1!  WING  MAINTENANCE  ROUTINE 

ACT, ,USERF (33) .GE.4.AND.NNRSC (WGSHOP1 ) .CT.0.OR. 

USERF ( 34 ) . GE . 4 . AND . NNRSC ( WGSHOP 1 ) . GT . 0 , 

WMlli  HYDRAULICS  OR  AIRFRAME 

ACT , , USERF (32) .GE . 4. AND . NNRSC (WGSHOP2) . GT . 0 , 

WM21!  ENGINE/FUEL 

ACT , , USERF  < 3 1 ) . GE . 4 . AND . NNRSC ( WCSH0P3 ) . GT . 0 . OR . 

USERF ( 35) . GE . 4 . AND . NNRSC ( WGSH0P3) . GT . 0 , 

WM31!  ELECTRICAL  OR  COMM/NAV/ INST/RADAR 

ACT , , USERF ( 36 1 . GE . 4 . AND . NNRSC (WGSH0P4 ) . GT . 0 , 

WM41!  FIRE  CONTROL/WEAPONS  RELEASE 

ACT,,,WMPi;  GATE  TO  INSURE  TRAP  IN  Q  WMP2 

WMli  AWA IT (58) ,WGSHuPl/l,l!  AIRFRAME 

ACT/7, USERF (81 ),,WM12i 
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WH12  FREE,WG$HOPl/l,l) 

ACTt»>Uni3‘. 

«N13  ASS IGN. ATRIB (21  >  =ATRIC (7)  +USERF (133) . 
ATRIB ( 18) =US£RF (43) i 
ATRIB (22) =ATRIB (7) +USERF ( 134) , 
ATRIB  (18)  -U$ERF(WMi 
ACT».USERF(37).CE.4.«HDIf 
ACT  r .USERF (32) .GE.2,UH23i 
ACTmUSERF(31).CE.2.0R. 

USERF 135) .GE.2.WH33! 

ACT  > • USERF l 36) . GE . 2 , WR43 ! 
ACTm.HHDI; 


H«2i  AWAIK59)  ,«GSH0P2/1 » 1 » 

ACT / 8 , USERF ( 82 ) , » WR22 i 


ENGINES/FUEL 


UM22  FR£E,UCSH0P2/l,li 
ACT, ,,WH23i 


UH23  ASSIGN. ATRIB!20)=ATRIB(7!+USERF(132) , 
ATRIB(18S=USERF<42),1( 

ACT . .USERF (37) .GE.4.WND1 ! 

ACT . , USERF (331 .GE.2.0R. 

USERF (34). GE.2.UH13. 

ACT , . USERF (31 ) .GE. 2 .OR . 

USERF (35). GE.2.WH33! 

ACT .  .USERF  (36!  ,G£.2,Wf(43 ! 
ACT...HHD1! 


WK31  AWA5T(S0).«GSHOP3/l.i. 

ACT/9,  USERF  (83).  »WI32; 

UH32  FREE, UGSH0P3/1 , 1 F 
ACT,  ,,Wft33i 


HH33  ASSIGN, ATRIB (19) =ATRIB(7 ) +USERF ( 131 ) » 
ATRIB(18)--USERF(41), 

ATR IB (23) =ATRIB (71 +USERF (135) , 
ATRIBU8)  =USERF(45)  ,it 
ACT,,U$ERF(37).GE.4,Wffl)l> 

ACT,, USERF (33). GE.2.0R. 

USERF  (34)  .GE.2,W(U3! 

ACT,, USERF (32) .GE.2.WH235 
ACT,,US£RF(36).GE.2,«R43! 

ACT,,, URDU 


COMH/HAV/ INST /RADIO/RADAR 


WK41  AWAIT  (61  !,WCSH0P4/l,r» 

ACT/10, USERF (84), »WR42! 


FIRE  CONTROl/WEAPOHS  RELEASE 


mi  FRE£,UGSHQP4/1»1! 
ACT,,,WR43i 


I 


t 


im 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 


UH43  ASSICNt ATRI8 (24) =ATRIB (7) +USERF { 136) » 

ATRIB (18) =USERF (46 ) » 1 ! 

ACT  ,, USERF  (37) .GE.4,UHD1 ! 

ACT i tUSERF (33) .GE.2.0R. 

USERF (34) .CE.2tUM13t 
ACTi.USERF(32I.GE.2»MH23» 

ACT,, USERF (31) .CE.2.0R. 

USERFI35) .GE.2,UK33f 

actm.uudi; 

» 

WMP 1  CLOSE  tWGPOGL 1 1  i 
ACT,,,UHP2! 

! 

MHP2  AttAIT<62) .WGPOOL.ll 
ACTmUCi 

! 

UHD1  OPEN » WGPOOL  f 1 J 

ACT,. 0001,, UHD2, 

! 

yHD2  OPEN i HNTPOOL  f 1 » 

ACT). 0001. USERF(37).GE.4,MGi 
ACT). 0001> )UH03> 

I4HD3  ASSIGN,  ATRIBU7)  -0»ATRIB(  18)  =USERF (47)  > 

ATRIB(3)-USERF(21), 

ATRIB(13) =9»ATRIB( 16)  =0,1? 

ACT,USERF(65) ,ATRIB(27) .NE.0,CL12i 
ACT , USERF (65 ! , ATR I B ( 26 ) . NE . 0 , CL1 1 1 
ACT, USERF (65),, CL101 

',  STATISTICS  ON  WING  SERVICE 

C112  COLCT, INTVK27)  ,«CSERVCOHPDAI03, ,  1  > 

ACT,,, RUTH! 

CL1 1  COLCT , INTVL (26 ) , HGSERVCOHPDAT02 ,,15 
ACT  t  r ,NXTM» 

CUB  COLCT ,  INTVL (25)  ,WGSERVCOHPDAT01 , ,  1  i 

act,,,hxth; 


2747 
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Fig  A.19«l  Wing  Maintenance 


Fig  A* 19 *2  Wing  Maintenance 
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;  HAT  MAINTENANCE 

AN  A/C  ARRIVING  AT  HAT  AAINTENANCE  IS  ASSIGNED  A  PRIORITY  PROCESS¬ 
ING  CODE  IN  EXACTLY  THE  SANE  NAT  IT  IS  DONE  AT  UING  (ADD  ALL  4  AND 
5  LEVEL  FAILURES  TOGETHER  AND  PROCESS  ON  LOU  VALUE  FIRST).  THE 
SYSTEH  THEN  REPAIRS  THE  QUICKEST  FIRST.  IF  A  SHOP  IS  OPEN  AND 
REQUIRED  THE  A/C  IS  PROCESSED  IN  THAT  SHOP*  ELSE  IT  IS  SENT  TO  A 
WAITING  POOL.  WHEN  AN  A/C  COAPLETES  SERVICE  IT  FREES  THE  HAT 
UNIT.  RESETS  THE  FAILURE  CODE  AND  NTOF  FOR  THE  STSTEH(S)  REPAIRED. 

AND  SIGNALS  THE  A/C  WAITING  IN  THE  AHT  WAITING  POOL  THAT  AN  HAT 
UNIT  IS  FREE.  THE  A/C  IN  THE  POOL  WITH  THE  HIGHEST  PRIORITT 
(LOWEST  VALUE)  THAT  REQUIRES  THE  HAT  OBTAINS  IT.  THE  REST  OF  THE 
A/C  ARE  RETURNED  TO  THE  HAT  WAITING  POOL. 

OCCASIONLT.  AN  A/C  WILL  BE  HOVED  FROH  THE  HAT  WAITING  POOL  TO  THE 
WING  AAINTENANCE  FACILITY.  THIS  HAPPENS  WHEN  A  WING  SHOP  BECOHES 
FREE  AND  NO  A/C  WAITING  AT  WING  REQUIRE  THE  SHOP.  BUT  AN  A/C 
WAITING  AT  HAT  DOES. 

IF  THE  A/C  FREEING  THE  AHT  UNIT  IS  DONE,  IT  PROCEEDS  TO  TURNAROUND 
SERVICE.  IF  THE  A/C  REQUIRES  FURTHER  SERVICE,  IT  TRYS  TO  OBTAIN 
THE  DESIRED  HAT  UNIT  WHICH  IS  APPROPRIATE  FOR  REAAINING  AAJOR 
PROBLEHS.  IF  ALL  AAJOR  REPAIRS  ARE  COHPLETED  THE  A/C  IS  SENT  TO 
SQUADRON  LEVEL  AAINTENANCE  IF  IT  REQUIRES  ANT  AINOR  REPAIRS. 

UNLIKE  WINC  SHOPS,  HATS  DO  NOT  CONCURRENTLY  REPAIR  AINOR  PROBLEHS. 

HAT  UNITS  REPAIR  THE  FOLLOWING  SYSTEAS- 


1  -  ELECTRICAL 

2  -  ENGINE/FUEL 

3  -  H YDRAUL I CS /PNEUAAT I CS 

4  -  AIRFRAME 

5  -  COAA/NAV/ INSTRUAENTS/RADAR 

8  -  FIRE  CONTROL/WEAPONS  RELEASE 
HAT  ASSIGN, ATRIB(10)=0, 

ATRIB(17)=USERF(38) ,1!  MOBILE  AAINTENANCE  TEAA  ROUTINE 
ACT,»USERF(31) .GE.4.AND. 

NNRSC(AATl).GT.0,AHlli  IF  REQ'D  AND  AVAIL,  CO  TO 
ACT , , USERF ( 32 ) . GE . 4 . AND . 

NNR$C<AAT2).GT.0,HH21i 
ACT,, USERF (33) .GE.4.AND. 

NNRSC(HHT3».GT.0,HH31i 
ACT, , USERF (34). GE. 4, AND. 

NNRSC(AHT4).GT.0,AH41 ! 

ACT , (USERF (35) .GE. 4. AND. 

NNRSC(HHT5).CT.0,AH515 
ACT » , USERF ( 36 ) .GE.4.AND. 


1 


i 


2798  NNRSC(M1T6)  .GT.*,HH61i 

2799  flCTi».HHPl» 

28*#  '» 

28*1  Will  AWAIT(63),HHT1/1,1»  ELECTRICAL 

28*2  ACT/11. USERF(91),,HH12i 


28*3  i 

28*4  HH12  FREE.HHTl/1,1! 

28*5  ACT...HR13; 


28*6 

28*7 

28*8 

28*9 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 
2819 
282* 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 
2829 
283* 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 
284* 

2841 

2842 

2843 

2844 

2845 

2846 

2847 


» 


KH13  ASSIGN. ATR1B ( 18) =USERF  (41 1 . 

ATRIB(19)=ATR1B(7)+USERF(131) .liRESET  FAIL  CODE  0.NTOF  RESET 
ACT...H0PL1  TURNAROUND  SERVICE  PREP 

HH21  AWAITT6.4)  .MMT2/1 . 1  i 

ACT/12. USERF(92!..H«22i  ENGINE/FUEL 

HH22  FREE.HHT2/1.1. 

ACT. . ,HH23! 


Hft23  ASSIGN. ATRIB ( 18)  =USERF <42 i , 

ATRIB(2*)=ATRIB(7)+USERF(132) .liRESET  FAIL  CODE  0.NTOF  RESET 
ACT.i.MOPL!  TURNAROUND  SERVICE  PREP 

MM3 1  AWAIT(65),MHT3/l,li  HYDRAULICS/PNEUMATICS 

ACT/13, USERF(93),»HH32! 

MM32  FREE.MHT3/ 1.1* 

ACT . , , MH33J 


Mfl33  ASSIGN, ATRIB(18)=USERF<43), 

ATRIB (21 ) =ATRIB (7) +USERF (133) .1 .RESET  FAIL  CODE  i.NTOF  RESET 
ACT...HOPL5  TURNAROUND  SERVICE  PREP 

MM41  AWAIT (66) .HNT4/1.1.  AIRFRAME (STRUTS. TIRES) 

ACT / 14.USERF (94) i » Wt42. 

MM4Z  FREE.HHT4/1.1! 

ACT » • »MM43» 


H1143  ASSIGN, ATR1BU8)=USERF144), 

ATR IB ( 22 ) =ATRI B ( 7 ) +USERF (1341,11 RESET  FAIL  CODE  *,NTOF  RESET 
ACT...MOPL,’  TURNAROUND  SERVICE  PREP 

NH51  AWAIT (67), MHT5/1.1,  CONH/NAV/INST/RADIO/RADAR 

ACT/15, USERF(95),»HH52i 


1*9 


2848 

MM52  FRE£,HHT5/l,li 

2849 

ACT  t  t  rHH53t 

2850 

! 

2851 

• 

1 

2852 

HH53  ASSIGN, ATRIBU8) =USERF  (45) , 

2853 

ATRIB(23)=ATRIB(7)+US£RF(135> 

, 1 iRESET  FAIL  CODE  0.NTOF  RESET 

2854 

ACT  i  mMOPL! 

TURNAROUND  SERVICE  PREP 

2855 

i 

2856 

HH61  AWAIT(68),MHT6/l,li 

2857 

ACT/16,  USERF(96)mHH62; 

FIRE  CONTROL/WEAPONS  RELEASE 

2858 

i 

2859 

HH62  FREE,MHT6/1,1! 

2660 

ACT , , ,MM63» 

2861 

» 

2862 

! 

2863 

NN63  ASSIGN, ATR1B ( 181 =US£RF(46) , 

2864 

ATRIB(24)=ATRIB17!+USERF(136) 

,1 {RESET  FAIL  CODE  0.NTOF  RESET 

2865 

ACT,,,HOPL> 

TURNAROUND  SERVICE  PREP 

2866 

! 

2867 

HHP1  CLOSE , MNTPOOL , 1 J 

2868 

ACT,,,NHP2! 

2869 

i 

2870 

HMP2  AWAIT  169 ) iMNTPOOLtli 

WAIT  FOR  NUT  SERVICE 

2871 

ACT, .0002, ,MHPC5 

A/C  HAVE  A  CHANCE  TO  GO  FOR  A 

2872 

! 

MAJOR  REPAIR  IF  SPACE  AVAILABLE 

2873 

! 

IN  A  WING  SHOP  THET  REQUIRE 

2874 

i 

ELSE  THET  LOOP  BACK  TG  THE  MMT 

2875 

f 

1 

ENTRT  ROUTINE 

2876 

HHPG  GOON, 1 T 

2877 

ACT , , USERF (1131 .EQ.1,HHP3> 

2878 

actm.hht; 

2879 

i 

2880 

MMP3  ASSIGN, ATRIB13) =USERF (221 , 

2881 

ATRIB(3)=4,XX<93)=1,1! 

UNPARK  AT  SQ, SET  WING  PARK, CLOSE 

2882 

! 

PATHWAY  TO  WING 

2883 

ACT,. 0001,, MMP4S 

DELAY  WHILE  OTHER  A/C  IN  THE 

2884 

! 

HHTPOOL  LOOP  BACK  TO  HMT  ENTRY 

2885 

HHP4  ASSIGN, ATR1BU3)  =ATRIB11) , 

2886 

XX (931 =0,1 5 

RESET  PATH  TO  WG  OPEN 

2887 

ACT,USERF(66),,UCi 

2888 

! 

2889 

HOPL  OPEN , MMTPOOL , 1 f 

2890 

ACT,. 0001 ,USERF<37).GE.2,SHXC> 

2891 

ACT,. 0001,, HRRSi 

2892 

i 

2893 

HHRS  ASSIGN, ATRIB( 161=0, 

2894 

ATRIB4 17) =0,1 ? 

RESET  BATTLE  DAMAGE  AND  SYM  ABORT  CODE 

2895 

ACT , ,ATRI8(27) .NE.0,CL15i 

2896 

ACT , ,ATRIB (26) .NE.0,CL14» 

2897 

ACT , , , CL13J 

2898  i  STATISTICS  OH  HHT  SERVICE 

2899  CHS  COLCT i  INTVL127)  > SQSERVCOHPDAT 03 r  i  i ! 

2911  ACT.mHXTI; 

2981  ; 

2982  CL14  COLCT i INTVL (24) iSQSERVCOHPDAf 82. i 1 1 

2983  ACT t»i HIT li 

2984  i 

2985  CL13  CQLCT , INTVL ( 25 1 . SflSERVCOHROA T 8 1 m 1 i 

2986  ACTittHITli 

2987  ! 


f 
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MMT  Maintenance 


T 


4 


29«8 

2909 

2911 

2911 

2912 

2913 

2914 

2915 
2914 

2917 

2918 

2919 
292# 

2921 

2922 

2923 

2924 

2925 
2924 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 
2934 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 
2944 

2947 

2948 

2949 
295# 

2951 

2952 

2953 

2954 

2955 
2954 
2957 


SQUADRON  MAINTENANCE 

A/C  WITH  MINOR  PROBLEMS  ARE  REPAIRED  CONCURRENTLY.  THIS  DIFFERS 
FROM  UING  AND  MMT.  THE  A/C  PROCESS  THROUGH  SQUADRON  MAINTENANCE 
RECEIVING  THE  SERVICE  REQUIRED.  WHEN  ALL  SERVICE  IS  COMPLETED) 

THE  FAILURE  CODE  AND  NTOF  (IF  FAILURE  HAS  LEVEL  2  OR  3)  IS  RESET. 

A/C  THAT  STILL  HAVE  A  MAJOR  PROBLEM  ARE  SENT  TO  OBTAIN  AN  MMT 
UNIT.  THOSE  A/C  THAT  ARE  FINISHED  WITH  MAINTENANCE  ARE  SENT  TO 
TURNAROUND  SERVOCE.  EACH  SQUADRON  SHOP  HAS  ITS  OUN  SPECIALTY  - 

1  -  HYDRAULICS/PNEUMATICS  AND  AIRFRAME 

2  -  ENCINE/FUEL 

3  -  ELECTRICAL  AND  COMM/ NAV/ INSTRUMENTS /RADAR 

4  -  FIRE  CONTROL/WEAPONS  RELEASE 

SHI  C00N>4>  SQUADRON  MAINTENANCE  ROUTINE 

ACTt  rUSERF (33) .EQ.2.0R. 

USERF (33 ) .EQ.3.0R. 

USERF (34) .EQ.2.0R. 

USERF (34) ,EQ.3tSQllt  HYDRAULICS/PNEUMATICS  OR  AIRFRAME 

ACT  , iUSERF (32) .EQ.2.0R. 

USERF(32).EQ.3iSQ12!  ENGINE/FUEL 

ACT,, USERF (31). EQ. 2. OR. 

USERF(31) .EQ.3.0R. 

USERF (35) .EQ.2.0R. 

USERF (35) .EQ.3,SQ13>  ELECTRICAL  OR  COMM/NAV/ INST /RADAR 

ACT,, USERF (34). EQ.2.0R. 

USERF (34) .EQ.3,SQ14!  FIRE  CONTROL/HEAPONS  RELEASE 

ACT, (USERF (33). N£. 2. AND. USERF (33). NE. 3. AND. 

USERF 134) ,NE.2.AND,USERF(34I . NE . 3 , SQQ1 ! 

ACT , , USERF (32) . NE . 2 . AND . USERF ( 32 ) . NE . 3 , SQQ2 i 
ACT , , USERF ( 3 l ) . NE . 2 . AND . USERF ( 3 1 ) . NE . 3 . AND . 

USERF ( 35 ) . NE . 2 . AND . USERF ( 35 ) . NE . 3 , SQQ3 I 
ACT,  .USERF (34) .NE. 2. AND. USERF (34) .NE.3,SQQ4! 

SQ11  ANAITI70) ,SQIMI1/1,1,  WAIT  FOR  SERVICE 

ACT/17, USERF  (lit ),,SQ15! 

SQ15  FREE,SQ1M*1/I,i; 

actm.sqqi; 

SQ12  AWAIT (71) ,SQ1HX2/1 , 1 ? 

ACT/18, USERF! 102),, SQ141 

SQ14  FREE, SQ1MX2/ 1,1! 

ACT , , ,SQQ2! 

SQ13  AWAIT (72) ,SQ1MY3/I,li 
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ACT/19. U5£RF(103) , »SQ17» 


2958 

2959 

2968 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 
2978 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 
2988 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 
2998 

2991 

2992 

2993 

2994 

2995 


8817  FREE,SQ1HX3/T,t! 

ACT...S083! 

SQ14  AWAIT (73) .SQ1NX4/1 tli 

ACT/20,USERF(104) »,SG18! 

3818  FREE* S31MX4/1 1 1! 

ACT ** *3084! 

31*2  COON, 4!  SQUADRON  MAINTENANCE  ROUTINE 

ACT  * iUSERF 133) .EQ.2.0R. 

U3ERF (331 .EQ.3.0R. 

USERF (34).EQ.2.0R. 

USERF 134) .E0.3,SQ21*  HTDRAULlCS/PNEUMATICS  OR  AIRFRAME 

ACT  * .U5ERF (32) .EG. 2. OR. 

USERF !32).EG.3*SG22!  ENCINE/FUEL 

ACT,, USERF (31). EG, 2.0R. 

USERF(31) .E8.3.0R. 

USERF(35) .EG. 2. Oft. 

USERF (35) .EQ.3,$Q23>  ELECTRICAL  OR  C0MM/NAV/1NST/RADAR 

ACT  *  *  USERF  (36)  .EG, 2. OR. 

USERF (36) .EG. j*SG24!  FIRE  CONTROL/WEAPONS  RELEASE 

ACT  * , USERF ( 33 1 . N£ . 2 . AND . USERF (33 ! . NE . 3 . AND . 

USERF ( 34 ) . NE . 2 . AND . USERF (34 ) . NE . 3 . SGC 1 i 
ACT** USERF (32) ,NE. 2. AND. USERF (32) .NE.3*S8Q2! 

ACTmUSERF(31)  .NE. 2. AND. USERF (31)  .NE.3.AND, 

USERF (35) .NE. 2. AND. USERF (35) .NE.3.SGQ3! 

ACT*  *USERF (36) .NE. 2.  AND. USERF (361 .NE.3iSQ84! 

! 

SG21  AWAIT (74) r S02MX 171*1*  WAIT  FOR  SERVICE 

ACT/21. USERF (181!,, SQ25! 

I 

SQ25  FREE. SG2MX 1/1,1! 

ACT , , tSGGl ! 

1 

SQ22  AWAIT (75) ,SQZNX2/1* 1! 

ACT/22, USERF(i82),,SQ265 


2996  i 

2997  SG26  FREE. 5Q2HX2/1 » l J 

2998  ACT, , ,S8Q2! 

2999  * 

3888  3023  AWAIT(76),SQ2MX3/1,1! 

3081  ACT/23, USERF  ( 103  V.  >G27! 

3082  i 

3083  SGZ7  FREE. S02MX3/1 » 1 » 

3004  ACT,r,SQ83! 

3085  i 

3006  SQ24  AWAIT (77), SG2MX4/ 1,1! 

3007  ACT/24, USERF ( 104),, SG28! 


FREE  t  SQ2MX4/ 1  *  1  i 
ACTr  r  rSaaVr 
COON. 4 i 

ACT . .USERF (33) 
U3ERF (33) .EQ. 
US£RF(34).E8. 
U3ERF (34 ) .£0. 
ACT . .U3ERF (32! 
USERF 132) .EQ. 
ACT  r  fUSERF (31 i 
USERF (31 ) .EQ. 
USERF(35).EQ. 
USERF (35). EQ. 
ACT. .USERF (34) 
USERF (34) .EQ. 
ACT.. USERF (33) 
USERF (34) 
ACT.. USERF (32) 
ACT. t  USERF ( 31 5 
USERF (35! 
ACT ..USERF (34) 


.E0.2.0R. 
3. OR. 

2. OR. 
3.SQ31 1 
.EQ.2.0R. 
3.S832i 
.EQ.2.0R. 
3. OR. 

2. OR. 

3 . SQ33 i 
.EQ.2.0R. 

3 . SQ34 ) 

.NE.2.AND. 

.NE.2.AND. 

.NE.2.AND. 

.NE.2.AND. 

.NE.2.AND. 

. NE . 2 .AND . 


SQUADRON  MAINTENANCE  ROUTINE 


HtDRAULlCS/PNEUHATICS  OR  AIRFRAME 


A«AIT(76),SQ3NXl/l.i; 
ACT/25. USERF(101),,SQ35; 

FREE.SQ3MX1/1.1 ! 

actm.sqqi; 

AWAIT (7? ) r  SQ3MX2/ 1 . 1 » 
ACT/24.  USERFU021..SQ34; 

FREE .SQ3HX2/1 . 1  f 
ACT. . .S8Q2i 

AUAIT(80I*S83HX3/1,1. 
ACT/27. USERF ( 103)., SQ37! 

FREE.SQ3MX3/1.1; 

ACT, , ,S9u3! 

AWAIT ( 81 ) » 3Q3MX4 / 1 , 1 r 
ACT/28, USERF (i 04 ),,SQ3Si 

FREE.S83HX4/1.1 J 
ACT , ,  ,SQQ4,' 

GOON,  4! 

AlT,,USERF(33).E8.2.0R. 
USERF (33) .E8.3.0R. 
USERF(34).E8.2.0fi. 


ENGINE/FUEL 


ELECTRICAL  OR  COMN/NAV/INST/RADAR 

FIRE  CONTROL/WEAPONS  RELEASE 
USERF (33) .NE.3.AND. 

USERF (34) .NE.3.SQQ1 ! 

USERF (32) .NE.3.SQQ2! 

USERF (31). NE. 3. AND. 

USERF (35) .NE.3.SQQ3. 

USERF (36 )  .NE.3,S8Q4i 

WAIT  FOR  SERVICE 


SQUADRON  MAINTENANCE  ROUTINE 


■nwwr  ■**&&}  <** i 


3058 

USERF (34) .EQ.3iSQ41i 

HtDRAULICS/PNEUMATICS  OR  AIRFRAME 

305? 

ACT, .USERF (32). E0.2.0R. 

3080 

USERF (32). E0.3.SQ42! 

ENCINE/FUEL 

3081 

ACT  r » USERF (311 . EQ .  2 .  OR . 

3082 

USERF(3U.EQ.3.0R. 

3083 

USERF (35) .EQ.2.0R. 

3084 

USERF 135) .Efl.3iSa43! 

ELECTRICAL  OR  COHH/NAV/ INST/RADAR 

3085 

ACT  t  *  USERF (36) .Ed. 2. OR. 

3088 

USERF138) .E3.3,S844! 

FIRE  CONTROL/WEAPONS  RELEASE 

3087 

ACT, , USERF (33) .RE. 2. AND. USERF (33) .NE.3.AND. 

3088 

USERF (34) .N£.2.AND.USERF(34) .NE.3,SQQ1 1 

3089 

ACT , , USERF ( 32 ) . NE . 2 . AND . USERF ( 32 ) . NE . 3 , SQQ2 ! 

3070 

ACT,, USERF (31) .N£.2.AND.USERF(31) .NE.3.AND. 

3071 

USERF (35 ) . NE . 2 . AND . USERF (35 ) . NE. 3 • $083 ! 

3072 

ACT , , USERF (38 ) . NE . 2 . AND . USERF (38 ) . NE . 3 , SQQ4 ! 

3073 

I 

3074 

SQ41  A«AIT(82),Sa4H*l/l,l! 

WAIT  FOR  SERVICE 

3075 

ACT/29, USERF ( 101 ),,S045! 

3078 

! 

3077 

SS45  FREE, S84MX 1/1,1! 

3078 

ACT, ,,SQQ1> 

3079 

! 

3080 

SQ42  AWAIT (83) ,SQ4MX2/1 » 1 » 

3081 

ACT/30, USERF (1 02 ),,SQ48! 

3082 

i 

3083 

S848  FREE, S84NX2/ 1,1! 

3084 

ACT  1 1  »SQQ2! 

3085 

I 

3088 

S843  AWAIT(84), 384(1X3/1,1! 

3087 

ACT/31, USERF ( 103),, SQ47! 

3088 

! 

3089 

5847  FR£E,S84NX3/1,1! 

3090 

ACT,,,SQ83i 

3091 

! 

3092 

S544  AWAIT (85) ? SQ4MX4/ 1,1! 

3093 

ACT/32, USERF ( 104),, SQ48! 

3094 

! 

3095 

S848  FREE, S84HX4/ 1,1! 

3098 

ACT , , ,S884! 

3097 

SM5  COON, 4! 

SQUADRON  MAINTENANCE  ROUTINE 

3098 

ACT , , USERF (33) .E8.2.0R. 

3099 

USERF(33I.E8.3.0R. 

3100 

USERF (34) .E8.2.0R. 

3101 

US£RF(34).E8.3,SQ51! 

H T DRAUL I CS/PNEUKA T I CS  OR  AIRFRAME 

3102 

ACT , , USERF (32) .E8.2.0R. 

3103 

USERF (32) .E9.3,SQ52! 

ENCINE/FUEL 

3104 

ACT,,US£RF(3l) .EQ.2.0R. 

3105 

USERF (31) .EQ.3.0R. 

3108 

USERF (35) .£8. 2. OR. 

3107 

US£RF(35I.E8.3,S353! 

ELECTRICAL  OR  COKM/NAV/INST/RADAR 
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3198 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 
3116 

3119 

3120 

3121 

3122 
ol  23 
3124 
j  125 

3126 

3127 

3128 

3129 
3138 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 


ACT , ,U$ERF(36)  .E3.2.QR. 

USERF06) .E8.3,SQ54!  FIRE  CONTROL/WEAPONS  RELEASE 

ACT » tUSERF  (33)  .NE.2.AND.USERF(33t .NE.3.AND. 

USERF  <  34 1 . NE . 2 . AND . USERF (34 1 . NE . 3 , SQQ 1 i 
ACT », USERF  (3'2).NE.  2.  AND.  USERF  (32)  .NE.3,SQQZ! 

ACT,, USERF (31 1 .NE. 2. AND. USERF (31) .N£. 3. AND. 

USERF (35) .NE.2.AND.USERF135) .NE.3,S883! 

ACT, ,US£RF(36> .NE.Z.AN0.USERF(36) .NE.3.SQ84! 

S851  AWAIT (86)  ,S85MX1/1 ,1 >  WAIT  FOR  SERVICE 

ACT /33 , USERF (10 1 i , , SQ55 i 

S855  FREE,SQ5MXl/l,li 
ACT,,,soai; 

SQ52  AWAIT (87) ,S85MX2/1 ,1! 

ACT/34, USERF(102!,,SQ56! 

SQ56  FR£E,S85MX2/1, 1! 

ACT , , <S882> 

8853  AWAIT(88),S85KX3/t,li 

ACT/35,  U$ERFU03),,SQ57! 

S857  FREE. SQ5HX3/ 2 , 1 f 
ACT,,,S883! 

S854  AWAIT (89), S85MX4/ 1,11 

ACT/36,  USERF(104h,SQ58; 

8858  FREE, S85HX 4/1 ,1! 

ACT , , ,8884! 

SM6  GOON, 4!  SQUADRON  MAINTENANCE  ROUTINE 

ACT, tUSERF (331 .EQ.2.0R. 

USERF(33I.E8.3.0R. 

USERF (34) .EQ.2.0R. 

USERF (34) .E8.3,SQ6l !  HYDRAULICS/PNEUMATICS  OR  AIRFRAME 

ACT,, USERF 1 321. E8. 2. OR. 

USERF ( 32 1 . E8 . 3, $862 !  ENG I NE /FUEL 

ACT, .USERPX31 1 .EQ.2.0R. 

U$ERF(31>.EQ.3,0fi, 

USERF (351. E8. 2. OR. 

USERF(35).EQ.3,S863i  ELECTRICAL  OR  COMM/NAV/1NST/RADAR 

ACT,, USERF (361. E0.2.QR. 

USERF(36).EQ.3,S864!  FIRE  CONTROL/WEAPONS  RELEASE 

ACT , , USERF ( 33 1 . NE . 2 . AND . USERF (331 . NE . 3 . AND . 

USERF (34 1 . NE . 2 . AND . USERF ( 34) . NE . 3 , SQ81 ! 

ACT , , USERF ( 32 1 . NE . 2 . AND . USERF ( 32 1 . NE . 3 , SQQZ i 
ACT, .USERF (31 1 .NE.2.AND.USERF(31) .NE.3.AND. 

USERF (35) .NE.2.AND.USERF (351 .NE.3,SQQ3i 
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3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 
3184 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 


ACT,, USERF (34) .NE. 2. AND. USERF (36) .NE.3,SQ94i 


SQ61  AWAIT (90)  ,SQ6NXi/l>l! 

ACT  737 iUSERF ( 101 ) m SQ65 ! 

! 

3865  FREE • SQ6HX 1 / 1 • 1 > 

ACTm.SMI! 

f 

8362  AWAIT (91) >  SQ6MK2/ 1 1 1 i 

ACT/38.  USERF(102b.SO66i 

» 

SQ66  FREE.SQ6MX2/1. 1» 

ACT. . ,$992! 

! 

5963  AWAIT(92),SQ6NX3/l,li 

ACT/39, US£RF(103),,SQ67i 
i 

SQ67  FR£E,SQ6NX3/l,i; 

ACT .1.3993 5 

! 

5964  AWAIT (93) .S96HK4/1 . 1 1 

ACT / 40 . USERF (1041*. SQ68 i 
i 

3968  FREE,S96NX4/i,l! 

ACT... 3994! 

3991  QUEUE  <94 1,,,,  SANA,' 
i 

3992  QUEUE (95),,,,S8NAi 
I 

3993  QUEUE ( 96 ) , . , , SQMA « 
i 

3994  QUEUE ( 97 ),,,,38«A; 

. 

S9NA  NATCH, 2, 3991 /REDO, S992/TERW. 

S993/TERN.S994/TERN! 

I 

TERN  COON ,  1 F 
TERN I HATE! 


REDO  COON.li 


ACT . .U3ESF (31) .E9.2.0R. 

USERF (31) .E9.3.RED1, 
ACT i .USERF (32) .E9.2.0R. 

USERF (32) .E9.3.RED2I 
ACT,, USERF (33). E9.2.0R. 


WAIT  FOR  SERVICE 


Q’S  BEFORE  NATCH  IN  COMMON 
PROCESSOR  TO  PUT  AN  A/C  BACK 
TOCETHER  AFTER  IT  WAS  SPLIT  UP 
AND  RUN  THRU  39  MAINTENANCE 


THE  THREE  REDUNDANT  A/C  ENTITIES 
ARE  DESTROYED  AND  THE  ENTIT1 
CONTINUES  AS  A  SINGLE  A/C 

POST  NX  CODE  RESET  ROUTINE 
RESETS  NEXT  TINE  OF  FAILURE 
ALSO  CALLED  NT OF  IN  COMMENTS 
RESETS  EACH  APPROPRIATE 
SYSTEM'S  ATTRIBUTE 

TO  STSTEN  l  RESET 

TO  STSTEN  2  RESET 
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* 


3288 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 
3238 
3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 


TO  SYSTEM  3  RESET 

TO  SYSTEM  4  RESET 

TO  SYSTEM  5  RESET 

TO  SYSTEM  6  RESET 
STILL  NEEDS  MAJOR  WORK-  CO  TO  MMT 
ELSE i  BEGIN  ROUTING  TO  PSO  FOR 
TURNAROUND  SERVICE 
RED1  ASSIGN, ATR1B(19)=ATRIB(7I+USERF(131) , 

ATRIB(18)=USERF(41M; 

ACT,, .REDO!  SYSTEM  1  RESET 

RE02  ASSIGN , ATRIB (20) =ATRIB(7)+USERF ( 132) , 

ATRIS ( 18) =USERF (42) » 1 » 

ACT,,, REDO!  SYSTEM  2  RESET 

» 

RED3  ASSIGN, ATRIB (21 > =ATRIB (7) +USERF (133), 

ATRIB(18)=USERF(43) ,1! 

ACT,,, REDO!  SYSTEM  3  RESET 

I 

RED4  ASSIGN, ATRIB (22) =ATRIE (7) +USERF ( 134) , 

ATRIB  < 1 8) =USERF (44 ) , 1 » 

ACT,,, REDO!  SYSTEM  4  RESET 

» 

RED5  ASSIGN, ATRIB(23>  =ATRIB (7) +USERF ( 135) , 

ATRIB ( 18) =USERF (45) ,1! 

ACT,,, REDO!  SYSTEM  5  RESET 

» 

RED6  ASSIGN, ATRIB(24)=ATRIB(7)+USERF( 136) , 

ATRIB (18) =USERF (46) ilJ 

ACT,,, REDO!  SYSTEM  6  RESET 


USERF(33).E8.3,RED3i 
ACT, ,USERF(34) .EQ.2.0R. 

USERF(34).E8.3,RED4{ 
ACT , ,USERF (35) .EQ.2.0R. 

US£RF(35).Efl.3,RED5! 
ACT , ,USERF (36) .E8.2.0R. 

USERF136) ,EQ.3,RED6! 
ACT , >US£RF (37! .GE.4,DLMTi 
ACT, , ,MMRS; 


♦ 
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Ptatt-SS inc.  A [-of.  SQuASZartS 

torte*  All.  se< i/itt  iortPttrtb  4/e  TS 
/lirtM S-nt.it tTtri)  A**0  AlLO^ O  Tb  Plet-Vtb 


Fig  A«21«l  Squadron  Maintenance 


?±ED  Fig  A. 21. 2  Squadron  Maintenance 


3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 
325# 

3251 

3252 

3253 

3254 

3255 
3258 

3257 

3258 

3259 
3288 

3281 

3282 

3283 

3284 

3285 
3288 

3287 

3288 

3289 
3278 

3271 

3272 

3273 

3274 

3275 
3278 

3277 

3278 


EXECUTIVE  NETWORK 

THE  EXECUTIVE  NETWORK  CONTROLS  THE  AIRFIELD  HQDEL.  THE  USER 
INPUTS  THE  TIMES  TO  INITIATE  KET  ACTIVITIES-  SCHEDULER.  NIGHT 
PARKING.  QRA  CHANGEOVER.  AND  RESUPPLY  AND  RECONFIGURATION. 

THE  MASTER  CLOCK  INITIATES  EACH  ONE  OF  THESE  ACTIVITIES  AT  THE 
USER  SPECIFIED  TINE. 

WHEN  SCHEDULER  IS  INITIATED.  THE  FIRST  THING  THAT  IS  DONE  IS 
INITIALIZATION  OF  THE  FRAG  REQUIREMENT  FOR  THAT  DAT.  AFTER 
INITIALIZATION.  THE  SCHEDULER  BEGINS  TO  ORGANIZE  AND  RELEASE 
MISSIONS.  THIS  PROCESS  IS  CONTINUED  UNTIL  NIGHTFALL. 

NIGHT  PARKING  TRYS  TO  PARK  ALL  A/C  IN  THE  BEST  POSSIBLE  PARKING 
SPOT  FOR  PROTECTION  FROM  AIR  ATTACKS.  THIS  MEANS  A/C  ARE 
DOUBLED  UP  AT  NIGHT  IN  THE  SHELTERS.  EXCEPT  THOSE  SHELTERS  WHICH 
CONTAIN  QRA  A/C. 

QRA  CHANGEOVER  IS  AS  THE  NAME  IMPLIES.  THE  PILOTS  ON  ALERT  ARE 
REPLACED  BY  FRESH  PILOTS.  A/C  OF  A  SQUADRON  WHICH  HAS  BEEN  RE¬ 
SUPPLIED  BY  A  REPLACEMENT  UNIT  ARE  SWITCHED. 

RESUPPLY  AND  RECONFIGURE  CAN  ALSO  BE  INITIATED  BY  THE  MASTER 
CLOCK.  RESUPPLY  DETERMINES  IF  A  SQUADRON  REQUIRES  A  FRESH 
UNIT  BE  FLOWN  IN  TO  REPLACE  IT.  IF  SO.  IT  SCHEDULES  A  NEW 
SQUADRON  TO  ARRIVE  THE  FOLLOWING  DAY.  RECONFIGURE  PREPARES 
THE  A/C  FOR  THE  NEXT  DAY'S  FRAG.  IT  DETERMINES  HOW  MANY  SQUAD¬ 
RONS  WILL  BE  CONFIGURED  FOR  EACH  GEOGRAPHIC  AREA  THE  WINGS  WILL 
BF  GOING  TO.  AFTER  RESUPPLY/RECONFIGURATION  IS  COMPLETED.  THE 
JUNK  FILE  IS  CLEANED  OUT  TO  PREPARE  FOR  THE  FOLLOWING  DAY.  A 
PRINT  OUT  IS  AVAILABLE  BY  USING  LEVEL  1  PRINT  OPTION  IN  THE  FORTRAN. 

WHEN  ALL  MAJOR  EVENTS  HAVE  BEEN  COMPLETED,  OR  WHEN  THE  USER  HAS 
DETERMINED,  THE  MASTER  CLOCK  TERMINATES  ITSELF  AND  THE  SIMULA¬ 
TION  RUN  COMES  TO  A  STOP. 

EXECUTIVE  NETWORK 


EXEC  CREATE,,,, 1,1 1 
ACT, .11 


3279 

3280 

3281 

3282 

3283 

3284 

3285 
3288 

3287 

3288 

3289 

3290 

3291 


EXE1  EVENT, 1,21  MASTER  CLOCK 

ACT,XX(98),,EXEli 
ACT,, XX (98) .EQ.I.EXE21 
ACT , , XX (98) .EQ.Z,EXE4! 
ACT,,XX(96).EQ.3»EXE6! 

ACT , , XX (98) .EQ.4,EXE7! 
ACT,,XX(98).EQ.0,EXTM1 

EXE2  EVENT, 2,1! 

ACT, , .EXE31 

EXE3  EVENT, 3, 11  SCHEDULER 
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ACTf XX (98) » XX  <96) .EQ.8,EYE3i 
ACT t * XX (96)  .EQ.bEYRII 
ACT. »XX<96) .EQ.2»EXR2! 

ACT  f » XX (96) .EQ.3tEXR3i 

ACT  fREL(PSOX) . XX (94) .EQ.7,EXD2i 

ACTfiXX(96> .EQ.4i£XR4{ 

ACT, f XX (96) .EQ.5.EXR5! 

ACT, , XX(9&i .EQ.6,EXR 6! 
ACT,,XX(96> .EO.0,£XTH; 

OPEN.RDYPQOLt.li 
ACT, .EXE3! 


OPEN. RDYPOOLZ, 1 i 
ACT,. 9991,, EXE3i 

0PEN.RDtP00L3.ti 
ACT.. 0991.. EXE3, 

coon,  t ; 

ACT,. 9914,, EXE3i 

0PEN.RDYP00L4, 1 J 
ACT,  .9991. .EKE3I 

0PEN,RDyP00L5,li 
ACT,. 9991,. EXE3! 

0PEN.RDYP00L4.li 
ACT,. 9991,, EXE3I 


EVENT , 4, 1 ? 


INITIAL  NIGHT  PARKING 


EVENT, 5, li 

ACT ,REL(PSOX) , XX (96) ,EQ. l»EXD*i 
ACT,,XX(96).Efl.9»EXTMi 

COON ,  1 , 

ACT,. 9091,, EXE55 


EVENT, b, li 
ACT , , ,EXTHi 

EVENT, 7, li 


OPEN, JUNK, li 
ACT,. 0991i 


SNITCH  8RA  CREWS 


SET  UP  RESUPPLY  REQUEST  FOR 
NEXT  DAY,  RECONFIGURE  A/C 

DISPOSE  OF  JUNK  FILE 


12* 


EXJZ  CLOSE » JUNK. 1 


33*2 

33*3 

33*4 

33*5 

33*6 


EXTM  terminate; 


33*7  ; 

33*8  endnetwork; 

33*9  ; 

335#  INIT.0.432#. 

3351  MGNTR. TRACE. 1*00. 16##. 1.2; *6.18. 13! 

3352  FIN! 
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J/JlTlrtL  •a<'.l!e0UL6-A-  $feC.T IO»J 


A. 22*2  Executive  Network 


Appendix  B:  FORTRAN  Coding 

This  appendix  contains  a  complete  listing  of  the 
'  FORTRAN  code.  Extensive  comments  have  been  added  to  the 

code  to  help  the  reader/user  understand  the  purpose  and 

i 

*  function  of  each  routine.  The  code  is  easily  transportable 

and  should  require  no  modification  for  any  other  machine.  j 

However,  the  code  is  not  independent  of  the  supporting 
SLAM  processor,  since  many  function  calls  are  to  SLAM 
provided  routines. 

:  ! 
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24 

,15 


Ini  FOLLOWING  IS  ’HE  MAIN  PROGRAM.  ’HE  SIZE  OF  MEMORY  USED 
S^ORE  ’HE  ENTITIES  AND  SlAM  PROGRAM  IS  2E’  IN  THIS  PROGRAM. 
’HE  VAljE  OF  46008  IS  ’-E  SIZE  IfSEO  FOR  'HIS  SIMULATION  RUN. 


i; 


:5 


PROGRAM  MAIN! INPUT. OUTPUT, T6^  =  INPJ’,TAFE6=GUt?L'.tAPE7! 

DIMENSION  NSET (46800) 

COMMON / sCOMi /ATRIB ( 1001.00(1081. DDL ( 100i . D’NJW. 1 1 .MFA. MS , OF . NC.NR 
U.NCRDfi.NPRNT.NNRiJN.ptNSET.N’AFE .SS(  100. . SSl ( 100. » ’NtX  . , N0«.  XY  ( 1 00 ) 
„3MMuN  0:.-  (460081 
EG.IVAlENCE  (NSET (1 1  MijFT ) 

’iNSET-46 
NCRLR=5 
NRRNT :4 
N’A?E=7 
CALI  SLAM 


END 
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C0";O/ 3l C H 1  /  A’Ri3\  1001  r DO v  le0;  »DDl *  100) » DHOlf » 1 1 » .*p ? NCLNR 
♦  Vs.KC'K t  NPRaI?  t  NVR'jN  p  NN$E  ■  p  N  f  ArE f  $i  ■  100 )  >  :•  St  ■  *  0$  >  p  -  N£ )  » T NuW p  *  >  1  fc>0 ) 
v.OWQtWP^'.Ao/^AXPR «  pl^V“Rt*BFR  >£Pn 
.  J^ON/Rvl  Rc»/NU)1Rt3 '  40) 

EVENT  CGMOtf  BLOCK:** 

.  /  i  M  i  Ac  (-;  »RE-5Pt  ‘  (3  .•  p  l  .  ft  I**  AC  ?AC  :  VE  ■  t ) 

•:OWM/3CrED^/NGAGLt(3i2) »GE.&h3»Z>  p  *RAT£t3) 


w  .trv  v:  ■  .vi 

Jj?*’1L^/UCG^l  >  ^ lR$«  iZ* } » NLRSh t l  0y(24)»fcT0wi£A;  '-2*’> » NEAT » 

?>RGwV4  pFFRCUN  :•  *  *"  C .  tV  E  X  F  i  PC-.'NR'jN  » P‘E*  DROP  ?  PHONG  £?  » 
PATTRZ ; 3 )  »P&TTR3 (3) » ?DA>E  '■  3 ) » ?0A«3  ( ■  • , ?Dl (5)* 

OURM I V '  3 . » DUR#uD \  i '.  »0  jR^AK  (  3 ) » FRL-.  ENT i  *.) »  PRl* .SEE:  • 

•-  .•X*CN',jCvM:  /$V3\o»4i  i  &.«&)  »M  BP(6;  pAL.P(^  ptt*  »6)  p’iBA  Rtf'i5-» 
ERtt^INiEftUNWtt 


CO**Wi 


Or  /NCCE^{3)»NCpiiNCi3J»Cr:EN^C?y;NG».:?!^. 
CERAT £ » QNDHAX •  ?ERlt-T i  t  .R£?RAT{3mUP';«£pEN’ 
darmnoRi:;  »daathuc:3;  »dap«run(  35 »  darhex- 

RAR^Nj-v (•; )  mARM^.'G (3i  pf.ARBGUNO) » R  ARABS'* ; 3 ? 


vjGIOAl  A:;TIve 

*4-- r 

*■  llL  * ’ D 


30 


ESTABLISH  FRAG  FOR  THE  'HREE  IATS  OF  THE  SIMULATION. 


I 


35 

54 

57 

58 

55 
48 
81 


•  « 

0* 

45 

4o 

67 

o3 

49 

73 

71 

/  i. 

73 

71 


74 


I  s 
79 

33 
81 
82 
83 

34 
55 
34 

87 

88 
85 


C  SORTIE  RATES  ARE: 

DATA  5RATE/3. 3.2. 0.1.5/ 


3UNBER  OF  MISSIONS  PER  GAGGlE  ON  EACH  OF  TWO  GAGGLES  T 
ON  EACH  OF  THE  THREE  DATS. 

DAVi  1  2  3 

CAGCLE  l: 

DATA  NCAClE/  8,  0.  0. 

GACGu:.  ii 

3.  3.  0/ 


PERIOD  AFTER  LAUNCHING  EACH  OF  THE  GAGGi.ES: 


L  CAGClE  1  * 

DATA 

C  GAGGLE  2: 


DAT  1  2  3 

DELAY/20. 0»20.0,2?.0. 
28.0,20.0.20.0' 


DESIREE  PERCENTAGE  OF  SORTIES  TO  EACH  AREA. 


AREA:  :  2  3 

DATA  RtQPCT/0. 50, 0.30, 0.20/ 


C  iN: i iAL  NJMBtR  OF  A/v.  10  BE  CONFiGURED  FOR  EACH  AREA, 

c  the  sun  HOST  EGUA..  TOTAL  A/C  SINUS  HUMBER  on  qra. 

L 

C  A/C  CONFIGURED  FOR  AREA:  1  2  3 

DA: A  iNiTAC/  0,18,40/ 


i 

i 


3  AREA  3 


i 

R  I 


::5 

\'.b 

.  -T 

118 

.9 


.  : 

;23 

i.  ' 

ui 

.  L  L 

i 

123 

'  * 

t,  r,  t 

it* 

:2t 

:  i 
■  : 

\ll 

Viz 

M 

12? 

F  ! 

132 

15“ 


: :  t 

'.38 

i  :t 


A/C  ATTSi i iyS  ARySAB.i-i: it’s* 

ATTRITION  ?RlA  1  l  : 

IN  2-SrlIP: 

DA* A  FAT7R2/  0.95)0.06)0.07/ 

IN  3-891?: 

DATA  PATTR3/  0,04.0.05-0.04/ 


'ANA  jET i ISON  PRObAEIl:  .  .tS  S'1  ARtA:  .  /.  : 

CENTER  -INE  TANKS: 

DA  A  PRlCENT/0. 48)8. 58-0. 80? 


Hi  NO  "ANRS: 


DA* A  PR.hINC/ 1 .80) 1 .00i 1 . 08/ 


MEAN  TINE  BETWEEN  FAILURE  Of  SiX  STSTtMS: 

DATA  ‘7BF/3400 .8. 840, 0?  V00 , 0> g? i0»0.8t  ;2t8. >?/ 
ALPHA  FOR  THE  SETA  DISTRIBUTION: 

DATA  ALP/5. 8.4, 8-4. 0-D. 8)$. 0)4,0/ 

EE?A  FOR  THE  BETA  DISTRIBUTION: 

E-vA  BE*/ 1 .5i2.0)£.0ii .5)1 .5)2.0/ 


SPECIFY  IF  A  SQUADRON  IS  ACT” I v ^  OR  NO  ^OR  >Ht  SIMULA  ION. 
ACTIVE! II  =  .TRIE. 

ACTIVEX  --  .TRUE. 


-*/***? ” 


WKSf*- 


:a 

ACTIVE! 3)  --  .TRUE. 

-.41 

ACTiVEU)  .TRUE. 

1*2 

4C'IVE(5!  =  .  rR'J£ . 

•  <  "l 

It  J 

ACTIVE  16)  -  .TRU£. 

:44 

j* 

•i5 

SPECIE!  NUNEER  0-  A/C  REQUIRED  FOR  A  SQUADRON  TO  BE  CONSIDERED 

144 

*v 

OPERATIONAL.  USED  TC  DETERMINE  IF  A  SQUADRON  REQUIRES  RESUPPLY 

i  n  t 
:  t/ 

-INITAC  =  12 

148 

v 

,49 

INITIAL  PERCENT  i”  A/C  OPERATIONAL: 

150 

f 

XX (44/  -  ,90 

It.  1 

1  JL 

c 

NUH8ER  OF  PLOTS  IN  EACH  SQUADRON: 

152 

XX 1581  =  22.0 

154 

p 

155 

NUMBER  OF  AiRvRA- ?  IN  :ACh  SQyAuRON: 

:5t 

XX (57)  -  14.2 

158 

r 

NUMBER  Or  PILOTS  ON  <R4  AlERT: 

• 

J  7 

a  X  i  4 : .  *  3 

1  ' )0 

V 

Ifc'l 

c 

NUMBER  0*  PILOTS  3R4  QUALIFIED  (INCLUDE  THOSE  ON  AvERT): 

162 

iHil:  -  9 

143 

«*» 

u 

144 

NUKES  OF  RiuTS  FLIGHT  lEAD  QUALIFIED  (INCLUDE  THOSE  ON 

1  i5 

p 

Ai.tR'  AND  Triiit  ORA  QUAl.FIECi  SUT  DC  NO'  COUNT  TWICE) : 

160 

H  .43)  :  1 4 

14' 

L. 

14: 

' 

INI'IAl  POu  --U-'FJ: 

149 

XX(44i  -  l22000i:. 2 

ihfe, 


.72 


1  T 

C 

DETERMINE  THE  NUMBER  OF  RESOURCES  FOR  EACH  OF  TnE 

•  TO 
t  »  L 

r 

HlNG  SHOPS: 

•  TO 
-  /  0 

f* 

174 

NUHRESll)  =  2 

175 

NURSES (2)  =  2 

174 

NuilRtS  ( 3 )  -  2 

1 77 

Niji1RESI4)  ;  2 

178 

c 

179 

f* 

180 

c 

INITIALIZE  THE  NUMBER  OF  RESOURCES  pgr  EACH  OF  THE 

18". 

f 

SIX  HMT  UNITS; 

182 

r 

133 

NUMRES15)  -  2 

184 

NUNRESI6)  =  2 

185 

Nu*RES<7!  =  2 

184 

N.jNREiib)  -  2 

•  .IT 
*0/ 

NuNRE3!9)  =  2 

138 

NuMRtS  i  10  :  2 

.39 

* 

190 

C 

1:1 

* 

tSTABuISr  THd  NUMBER  OF  ".‘SOURCES  ’OR  EACH  2F  THE  ‘CUR 

192 

l 

- o UR  SH-. - 3  iN  iACH  U‘  SQuADRONS: 

193 

c 

194 

r 

SQUADRON  1  ■ 

195 

NU*StS :  12;  --  4 

194 

NUTRESUSl  •-  4 

197 

NUMREiC.4.  -  4 

135 

NUMRESllSi  =■  4 

*  "O 

C 

200 

SQUADRON  2  - 

2s; 

N'JMREo !  ‘.o!  :  » 

202 

NURSES (171  =  4 

203 

SkiMixt:-  lie)  :  * 

204 

NUNRES  :;9)  =  4 

225 

n. 

204 

v 

SQuADRON  •;  • 

207 

V!<4  2  li0.'  :  4 

SMSESIil;  -  4 

209 

NUMRES < 22 1  -  4 

210 

NO, IRES (281  =  4 

21 1 

c 

■T  •  ■> 

i.*  L- 

u 

SQUA?*RO\  4  - 

1 

«JMR£S(24)  =  4 

214 

NUMRE3(25!  =  4 

fcl  J 

NUHREo !26)  :  4 

214 

MOHSES  (27)  --  4 

il  / 

218 

c 

SQUADRON  5  - 

21  7 

NUMRES128)  =  4 

ftilRESl29)  -  4 
•MuJ'RESOSJ)  1  4 
NJilRts  (3 1 }  -  4 

iiQu^DRON  h  - 
NvjHRES(3£}  =  4 
NUMRE3 i33)  *  4 
NUMR£S(34)  =  4 
NU«R£Si35>  =  4 

iNITIAL  Kb-^BER  OF  *1  TEAMS i 
NUURESill)  2  78 

iNIiIAv.  NUMBER  OF  REARMING  CREaSi 
N0'MRES(36)  2  18 

iNIiiAi.  NUMElR  0“  FgtL  TRUCK S 2 
NuMRES  ’•  37,  *  40 

.Nil- A^.  iWSEE  OF  BEARDING  CREWS ^ 

tYjM'VL  j  \  -SO  i  -  w 

^•JHBER  OF  R:j*WA  V 3 1 

v  j'7  >  -  *. 

NvNBK  0?  nCT";7$! 

Muf'fitV'ic.  5  4 


■-11*-  '  -  -■■,if'v".  ' 4  C . N G  PRINT  iTS"’EW£'iT; 

0  - 

:  -  JUNK  -/: 

i  -  KA-jOn  tVtNTP  Rti’vC  CALLED 

j  -  1'-  -.J.  7-  ’h.-OR  EVENTS 

4  -  EXCEPT  JUNCTION  UStRF  AND  SUBR  EVENT 

-  -  Awu  *?:n*E i  Ek>:E?r  JUNCTION  USER? 

•i  -  At-  ;Ov; 

'»  D  V  *  ^  1 

‘NOW  h‘E'>  TO  STAR"  SNO  STRP  PRINTING  STA'EHENTJ: 

£pRT  £  -:.0 

=W*  =  -1.0 


TATE  NUflEER  OF  rILE’ 


BE  Ovr^er: 


Lt  I 

278 

m 

289 


3'JBSGuTINE  IN 

CORRjN/SCORI/  ATRIBr.M. .DDU6R1 .DBLIlil) .8TNOU.!I»KFA.N$70P.NC,.NR 
S.  I SICRBR 1  HPftNT .  Ki»lftUN .  MMSET » KT  APE  ►  S  i  (1 0» ) » SSL  ( 1 00 ) » THE*  T ,  TKGW .  X  X  ( 1 00 ) 
IOMRON/PPlAC/RAIPST .LEVPRT  .BPR"  *EPRT 
COHHON/RSuRCE/NUNRESUfl) 


tot 

■  A  . 

tO-: 

284 

283 

288 


EVENT  COMMON  BcOCKS: 

CGNHGN/STATS  /SAXClWW  iNAC7TPE<6.8)  .NC$G<300!  .MSNRQA2»RSNFi..i{:! 
CGRHON/RSNREa  / INiTAC (3 ) » REQPCT  ( 3 ) i l IK IT6C  t ACT I VE ( 6) 

COMMON/  SCKESLR/NGACLs.*.  3.2)  »0Ei.Ay  i'3*2)  »SRATE(3) 

CORNuN/ClOCK  / iN 1  DARKiBoSK (3!  iOA^'_GHT  ( 8 !  i M4.jt.VNT (  lot 2  j 


4 


288 

239 

298 

291 

292 

A  *N  1. 

L  73 

:;a 

Z95 

Z'y* 

- 

4.7  ' 
1*8 


383 
:  & I 
382 

8; 

334 

I9C 

Hi 

:v 

Hi 

Hi 


j8E8  COMMON  BLOCK;! 

'.ORRON/uCGNt  /LCR9H  > 24;  iNCRiH.LTGW ; 24)  ?  NTGH »l£A'  H)  iNEA  i 
i  rrRGJVtipcRGUN;iPGUNE![Pi?GUMRjNi?SHBRoPiPH!JNGBHt 

i  ?ATTR2i3)  .PATTR3(ji  ,pDAM2(3l  .pDAH3(3>  .pDL(5l . 

V  3--RM.IM3)  .3URH3D12)  .DURRAHIS5  »PRLCEN'(3!  .PRLOG13. 

8 OMHON / L : 3M2  / NcARn i 4 . 50. 2 1 . NTT pE ( 8 , 3 > 

:0»*jN/vCG>l5  3TSU.4;  .STSTGL!i>!.lTEF(8)  >4l?<8) >BET;8)  r NBATREf  { 5) . 
8  ERUNMiNtERVNNAX 

C0R'V»/wC3RS  /OIETUSr  13!  >T;jy ; 8!  t ~A1 1  !3 1  iCREm (3) 

COMMON/UCG*?  /NCCENF t3> .NOiCNCIS, ,CPCEN7.CPWiNG.CpiNTR. 

/  GDRATo iGNBHAK i pER_EF T  i  ;!  iREFRAT (3) i UPTIME. BN” IRE. 

4  BARMNjR ( ;!  .DARMt  jG <33 .  3AR*RUN !3!  . GARMEXPfSi  • 

i  3ARRS0R 3 V  iRAR'SuC  .  3  1 .  RARMC  ON ,  2 ; .  RARMEGN !  3 ' 

C0MIWUCGR8  DISKS’.  .MODS*. >5)  .RAn<5MI«'5j .*GDE2;5i  .MA)i2i5) » 
i  MIN3<5)  .MODES (5!  ? RAX3 (5) » ^ IN~ <3 1  >M0DF4!?i  .MA/i  !T! . 

i  «lN5I5i  .MQCETiS)  .RAX5I5)  ,HINfc;5> .M0CE815I  .RAX6 ;5> » 

I  USH1  INTi3i  tHSHIINT 'ji 

CCRR0R/KQR9  /''RTRIS(G«21  .RR'R0D«>.2:-.?MTRAIt  14.21 
CGRR0N/UC3N1I/MINI (Si .KOBE! .5) .RAli (5! 


REA.  *lNl»MOEti.RAn»RIR2»ROB€2.*6H.HIN3.ROOE3.RAI(3. 

*  1 N4 . RODE4 . RAX A i R IN5.ROBE5.RAK5 . M I N8»  R0DE4 >  NAI6 » 
*I».:.*'0BEI.RA11I.RRTR!N.RRTRDD.RRTRAI.«T8F,r<2.;EVST 


-TGiCAt  .NTDARK»ACTIv‘E 


; 

j'.w  "  “H* 

"-F  VARIABLES, 

NAVA".  _ 
-CR9f 

-  'OTA,  NUMBER  A/C  AVAILABLE 

■  l:3'  jF  iStvjutG  STi'EM  lEVElS  WHICH  CAN  CAuSt  ■  HE  A/ 

v* 

*0  CRASH  (NOT  INCLJDIMG  BATTLE  DAMAGE!. 

L  . 

R2R8- 

-  NUMBER  OF  ENCODED  VALUES  IN  LCRSH  (LENGTH  OF  LIST! . 

t'OU 

-  LIS'  OF  ENCODED  SYSTEM  LEVELS  WHICH  CAUSE  THE  A/C  TO 

*,  . 

REQUIRE  TOHING, 

t  * 

■ 

-  .ENCT-I  OF  .1ST  ,:oy. 

*  C 

-BA' 

-  LIST  OF  ENCODED  VALDES  USED  TO  DE'ERMINE  IF  THE  A/C 

1_ 


137 


iZb 

p 

DUE  l  ffX  FAIl'JRES  AND  OAHAGt. 

^  *  y 
jL  i 

c 

NEAT  -  l:NGTH  06  _iO  lB-1’. 

m 

i- 

329 

330 

V. 

4i7t?E  -  NUMBER  C?  EACH  *  PE  )-  PARKING  SPACE  FOR  EACH  SOON. 

c 

S?3  -  IF  SYS’EM  FAILS .  CUMULATIVE  PROBABILITIES  FOR  EACrt 

-*v '  * 

A 

t 

SYSTEM  USED  70  DF’ERNINt  lEVEI  OF  -  A I  LURE  (lE'VEl  5 

.S3 

: 

BEING  1.00  . 

334 

w 

SYSTliL  ■  TOlERAs.E  HHI'.f  m.-0WS  *X  FA I LURES  ”0  OCCUR  .•  * hE 

335 

c 

S?S7E«  18  SChEDUlED  TO  -AIL  «T*IN  S*5TOl  MINU’ES. 

338 

r 

';7EF  -  KEAN  TIME  3ETWEEN  FAILUR: 

•VTt 

33  < 

c 

333 

339 

c 

GIST  -  DISTANCE  MATRIX  FOR  POINT  I  '3  MJN’  ON  EASE. 

340 

p 

■  LOttiMtOIuMirtlGH  iNFij"-..  0  RIANGlkAR  DISTRIBUTION  TC 

341 

p 

DETERMINE  A/C  to.  FATE. 

34 2 

c 

TAX I  -  AO  ABOVE)  EXCE?T  TO  DETERMINE  A/C  TAXI  RATE. 

343 

ORE.  -  AS  ABOvEr  EXCEPT  *3  DETERMINE  CREW  RETURN  RATE  FROM 

344 

1- 

VARIOUS  AREAS  OF  ’HE  EASE  AF'ER  CMC  ABORT  OR  MX 

345 

c 

FAILURE. 

3-6 

L 

347 

GDRATt  ■  P.'l  CCNSJMPTICN  RATt  ON  THE  GROUND. 

3»s 

* 

CPC  ENT  -  CAPACITY  .*•!•  CENTERLINE  ’ANK(S) 

£ 

CRN INv  -  CAPACITY  0-  EXTERNA,.  WING  *ANKS 

350 

r 

CPINTR  -  CA64..  I  ■ v  ,.F  .NTERNAl  .ANKX3). 

351 

GNDKAX  -  MAXIMUM  GROUND  OPERATING  TINE  BEFORE  TOPPING  0Fr  TANK' 

332 

3 

UPTIME  -  PINE  TO  UPLOAD  ONE  EXTERNAL  TANK. 

353 

£ 

DN'IHE  -  *I*E  73  DOWN-lOAD  AN  EXTERNAL  tank. 

354 

C 

355 

L 

end  of  Glossary. 

333 

w 

-■  ■- 

3<  i 

.*> 

■<*; 

■3  .  C 

jvl 

J 

380 

c 

36  1 

•v 

oERvICt  t;;i£S  FCR  SYSTEM:  1  TO  t- 

LEVELS  .23  4  5 

'  j  t’  . 

J  -'*• 

p 

SYSTEM  i: 

385 

DATA  MINI  /15. 0)L'0.0i 25 . 3 1 80. 0i A<;0. 2 ' 

388 

DATA  MODE 1/20 . 0t 25, 3i45. 0i lo0. 0, ;4@ , i 

3b7 

DATA  MAXI  /30. 0.35. 0.80. 0.380. 0)660.0/ 

366 

r 

SYSTEM  2: 

369 

DATA  MIN2  /25. 0.30. 0.120.0)720.0.720,0, 

370 

DATA  M0BE2/75 .0.120.0.130.0.1150.0.1200,0/ 

i  f  i 

DATA  MAX2  /12». 0.240. 0.300. 0.1701, 0,1800.0/ 

372 

SYSTEM  3! 

.-73 

DATA  MIN3  /40. 0,60. 0.120. 0.380. 0.380.0/ 

IATA  M0DE3/ 75, 0,180.0, 270. 0,800. 0,960.0/ 

'TC 

J  2  J 

DATA  MAX3  /120.6. 240. 0,360. 0,1100. 0.1200,0/ 

138 


5/0 


SYSTEM  4: 


377 

DATA  «IN4  /30. 0.60. 3. 180. 0.270. 0.420.0/ 

378 

DATA  M0DE4/45. 0.98. 0.270.0. 600. 0.900.0/ 

379 

DATA  MAX4  /40. 0,120. 0.420. 3. 800. 0.1200.0/ 

338 

■* 

SYSTEM  5; 

381 

LATA  MIN5  /30. 0,40.0,40.0, 90. 0,1S£.0/ 

382 

DH'A  MODE5/40. 0,40, 0,80. 0, 180. 0,300.0/ 

333 

DATA  MAX5  /50. 0.90.0. 100. 0,240.0. 420.0/ 

334 

SYSTEM  8: 

385 

DATA  MIN4  /40. 0,60. 0.90,0. 120.0.  150.0/ 

383 

DATA  MODE6/50. 0.120. 0.180. 0.180. 0.210,0/ 

387 

DATA  MAX  4  /40. 0,160. 0,240. 0.300. 0.340.0. 

338 

i, 

333 

r 

390 

c 

391 

C 

WING  SW?  SERVICE  TIME  INCREASE  DUE  TC  DOTH  PROCESS  BE  IMG  Id  SAME 

392 

c 

SrfOF.  ADLiL  tq  MAY , MUM  SERVICE  TIME  OF  .HE  00  SERVICES  AMD  THE 

393 

w 

RESULT  IS  USED  A3  THE  OVERALL  SERVICE  TIME. 

394 

c 

MIN  MODE  *AX 

3*5 

DATA  WSH1IWT/30. 3,50.0,60.0/ 

0  7  / 

c 

L-iA  »5rl3ii4T ,'25.0, -;:3. 0.45.0/ 

399 

400 

w 

401 

w 

40Z 

_ 

m  SERVICE  '2 ME S' 

403 

*  .  c 

404 

3T3TE*3:  12  3  4  54 

403 

•w 

LEVEl  4  PROE^E'i: 

400 

DATA  (MMTMINJI.li  ,1  =  1.4! -'70. 00, 100. 0,70. 00, 70. 00, 55. 0,55.0/ 

407 

DATA  (MMTMOu  1 1 , 1 .  ,1  =  1, 4! ,'100. 0,138. 0,120. 0,100. 0,70. 0,70.0/ 

403 

DATA  IMMTMA* (I, 1>, i=l, 41/140. 0,180. 0,170. 0,130. 0,85. 0,85.0/ 

409 

£ 

4  J 

i-oVE-  3  PROBLEM 4 

*11 

DATA  (MMTYIMu.2)  ,1=1,41  / 100.0, 130.8, 120.0, 130.0,45.00,70.30/ 

*  1 2 

DATA  (MMTMODI I. 2), 1=1, 41/130. 0,150. 0,180. 0,190. 8, 95. 00, 90. 00/ 

l  •  ' 
ft  ‘j 

■  '  P 

- 

DA •  A  I MMTMAX  i!  >2i  > ;  =  1 , R)  / 200 .0, i.e2 . 0,240.0,240 .0,130.0,  120.0/ 

415 

4‘.  o 

w 

IN'ERFERANCE  TIMES  ADDED  TG  SQUADRON  SERVICE  TIMES  DUE 

417 

r- 

L 

TO  OTHER  SHOPS  WORKING  'HE  SAME  A/C  AT  THE  SAME  TIME. 

418 

c 

419 

c 

NUMBER  OF  OTHER  ACTIVITIES:  123  4  5 

420 

DATA  MINI  /5.0, 5. 0,10. 0,15.0, 20.0/ 

421 

DATA  MQBEI/5. 1,5. 1,10. 1,20.0, 25.0/  - 

422 

DATA  MAXI  /5. 2, 5. 2, 10.2,25.0,30.0/ 

423 

L 

424 

c 

425 

c 

SECTION  1-  UTILITY. 

(  * 


LCRSHi  LTOW,  AND  .BAT  ARE  CODE j  4HICH  DETERMINE  .F  THE  A/C 
SHOULD  CRASH.  EE  TOWED >  OR  DESTROYED  EJE  TO  A  COMBINATION  OF 
NX  FAILURES  WITH  LBAT,  BATTLE  DAMAGE  IS  At SO  CONSIDERED!. 

IF  EACH  SYSTEM  HAS  A  GREATER  THAN  OR  EQUAL  LEVEL  OF  FAILURE 
THAN  THAT  WHICH  IS  SPECIFIED  IN  ONE  OF  THE  CODES  IN  USRSH, 

LTOWt  AND  LBAT,  THEN  THE  A/C  HAS  MEET  THE  CONDITIONS  AND  IS 
CRASHED,  TONED,  OR  DESTROYED,  RESPECTIVELY . 

EACH  CODE  VECTOR  CAN  HAVE  UP  TO  24  DIFFERENT  CODED  NUMBERS 
’0  COMPARE  TO  THE  H  FAILURE  CODE,  ATTRIBUSi*  TO  DETERMINE 
THE  OUTCOME  OF  THE  A/C  (IE  CRASH,  TOW,  OR  DESTROYED).  THE 
NUMBER  OF  ENCODED  NUMBERS  FOR  EACH  VECTOR  IS  SPECIFIED  IN  THE 
FOLOWING  STATEMENT; THESE  NUMBERS  ARE  FOR  THIS  PARTICULAR  RUN). 
DATA  NORSK, NT0N,NBAT/4>8i 13/ 

IF  i.ESS  THAN  24  ENCODED  NUMBERS  ARE  USED  IN  THE  VECTORS  llRSH, 
.TOW,  AND  LBAT,  USE  99999?  FOR  THE  RES'  (9999999  FOR  LBAT; , 

DATA  .CRSri/050008 ,4*400$ , 805000 . 000500,5 3*000,433810 , 1 3*999999/ 


DATA  .TOW  / 500008 , 050000,040000 , 0-35000 , 800500 , 008480 , 
,  800005, 333388, 14+999999/ 


FOR  LBAT,  the  SEVENTH  DIGIT  REFERS  TO  BATTLE  DAMAGE. 

DATA  .EAT-' 0500000,4440000,0*00005 , 0050080,0040005,03*0084 , 

►  0005800, 0334004, 5000003, 5340000, 3024005, *330080, 

►  4230004,11*99999937 


GUN  PROBABILITIES! 

PROBABILITY  OF  FIRING  A  GUN  IF  IN  TWO  SHIP  OR  THREE  SHIP: 
BATA  FFRGUNZtPFRGUNS,  0.7e>8.70, 

PROBABILITY  OF  THE  GUN  EXPLODING! 

DATA  FGUNEXP/0.01/ 


PROBABILITY  Of  THE  GUN  RUNNING  AWAY: 
LATA  FOUNRUN/0.02/ 


BOMB  PROBABILITIES: 


FR^EASiLITf  '*■  CROPPING  ’'HE  E0I*E3: 
2ArA  PEHGROP/i.00, 

'R-EAEILI ,  ?  jF  'HE  Bl  7B(Si  EE,  VC  HUNG: 
DATA  PHUNCEN/0.05/ 


BATTLE  DAMAGE  PROBABILITIES: 


AREA:  1 


IN  2-SHIP: 


BATA  PBAHZ  /  0.03.0.02,3.04/ 


In  3-SHi?: 

i,ATA  PDAH3  >  0.02,0,01.0.03/ 

EATTLE  DAMAGE  lEVEl  "ROEftBlLlTIES* 

DAMAGE  LEVEL:  .2345 
.4 ’A  PDL/0.60* 0.20,0. 13, 0.06.0.34/ 


•t'.T.'jN  2,  MARKING. 


SPED  IP?  NUMBER  OF  EACh  TYPE  OF  'ASKING  SPACE  AVAILABLE 
iSHtL-ESiDi  Re.V'E'mENT  >  DISPERSED)  FOR  lACH  SG'JADRON. 
SQUADRON:  123456 

BHE.7EREC: 

IATA  .type/  7,  7,  7,  7,  7,  7, 

REVETS;EsiT : 

&  9 1  9 1  '? '  0 1  8 1  0 1 

DISPERSED: 

i  34 ,  34,  34.  43.  4:3,  43/ 


SEC* I  ON  5.  ALTER  LODE. 


CUMULATIVE  PROBABILITY  OF  FA  LURE  LEVEL  FOR  THE  SIX  DIFFERENT 
lAlNTENAVIE  SYSTEHS. 

SYSTEMS:  123*56 

LEVEL  i: 

DATA  SYS/0. 10- 0.10. 0.35.0. 05. 0.10. 0.05. 

LEVEL  2: 

i  0,20.0.50.0.35.0.85.0.35,0.50, 

LEVEL  3: 

i  0.50,0.80.0.50,0.90,0.65,0.75, 

LEVEl  4: 

i  0.80,0. 40,0.65,0. 95, 0.90, 0.90/ 


i 


j2c 

i. 

SINCE  level  five  is  ;.m.  it  does  not  have  to  BE  SPEC II 

527 

v» 

522 

Vi 

Zt-i 

2 

tglerance  a.„o«£B  before  a  system  is  going  to  break  and 

L 

TNQW.  ILtD  IN  PRtFLICNT  T._  ^ HECK  IE  A  S*SiEN  IS  AEuuT 

.  j . 

w 

TO  KAIL. 

j  it 

r* 

SYSTEM:  !2345t 

513 

c  ■»  -• 

DATA  STSTOLi  5.0o.0i5.8i5.3i5.8i5.3/ 

0** 

535 

C 

5  it 

L 

r  ".t 

j  j  t 

Mi  FAILURE  CQBtS  ; nAT  Afit  bGOIVILENi  TO  THE  ^ I V £  3A.Ti_t 

538 

' 

DAMAGE  .EVELS.  AT  Mi.  THE  Mi  FAILURE  CODE.  ATRIE (185 .  AND 

539 

iw 

THE  EQUIVIlENT  BATTlE  DAMAGE  CODE  GIVEN  BELCH  ARE  "MASHED" 

5*3 

c 

TOGETHER  J  FORM  HE  NEW  Mi  rAILuRE  CODE  TQ  ESTABLISH 

E  1  • 

V 

THE  lEVEL  }F  REPAIR  ’0  EE  PERFORMED  BY  Mi. 

r  t  ■•) 

j+i. 

978999  INDICA.ES  . HAT  THE  A/C  :3  NkT  REPAIRABLE. 

5*3 

544 

DA . a  v£ A T RE" /  i22i.  1 1 .233321  > L 44321 . 999999.999999/ 

545 

- 

fit 

V 

347 

348 

MINIMUM  AIL  MASLHJM  vAlUES  OF  -jN I F DR?1  D.tiRiBUTIGN 

34? 

V 

-Sec  "o  initialize  the  a/c  engine  running  ..me. 

3;» 

-• 

DATA  ERUNMIN.tRUNMAi/36, 3. VimJI 

353 

531 

;rq 

SEC’.QN  t.  ■ RAvEl  IMF, 

.'J. 

556 

-• 

"-E  FOLlCHING  MA'RIX  DEFINES  tm£  DISTANCES  BETWEEN  the  TO" 

r:* 

w 

iNCODtl  LGCATICNS  ON  THt.  i-IE.D.  IF  &,'i  IS  iNitRED.  THE  DIS 

558 

BETWEEN  Those  TWO  points  is  -not  IMPORTANT  to  the  S:».LA7I3« 

539 

"7?  FOLLOWING  I?  A  ,.I'ST  OF  "HE  ENCODED  i.OCATIGNS: 

382 

„ 

1  L  U  JHLi  V-1’.  . 

-  ‘ 

v 

1  iW-jAun  jN  -7'El  l 

3s: 

c 

j  jGjAORON  A-;*A  3 

.0  j 

L- 

4  :i...ADSGN  AREA  4 

Zb* 

C- 

:  SiJADRCN  AREA  5 

5t5 

* 

6  SO’jADRGN  AREA  8 

588 

7  ARMING  AREA 

587 

' 

;S  APPROACH  END  OF  'HE  EGNWAT 

588 

9  WING  AREA 

389 

iw 

ID  DEARMING  AREA 

57$ 

w 

li  hotp;t  area 

57! 

L 

ID  DEPARTURE  END  OF  the  RUNWA'I 

57<. 

c 

13  NOT  DEFINED 

r  t‘ 
jt  ‘j 

c 

574 

w 

DIST,  MATRIX:  1  :  3  4  3  8  t  g  r  18  ;;  1; 

nc 

J  /  j 

DATA  DIST  li , 0. 0 ,0. 0,0.0 ,0.0 ,0. 0,0 .0 . 7. 1 ,0. 0 . 5.2.0 . 0. 7 . L . 

142 


0. 0*  t*. 0*0. 0*0. 0*b.i?*0.0»..jf2.0*0. 5*0.0*0.7*1.2*010' 

0.0*£.0’d.0»ic.0!0.0!£.0!  1  .7 » 2  * -:  i 0 .  i » 0 .  6 » 1 . 1 1 0 . 7  f  0 . 0 » 


0.0 

f  0  . 

0.0 

.  0  ' 

i .  2 1  v . 

.2.0, 

•  t/ 

,0 

.5,: 

4.:, 

,1*1 

,4*S 

,7,0. 

.0, 

i.% 

•  0. 

t»»  0 

.  2  • 

i.iii. 

.0*; 

.  j 

»  1  , 

.0.1 

V  f  j  , 

C  ' 

.  -J  !  * 

.  V  *  3 

.5*0, 

.0, 

i.i 

.0. 

010 

.e, 

'i .  i  1 1 . 

.  0 » I 

.Or. 

,5.2 

.  3 » L 

,4.4 

,  0 » 0 , 

.0, 

*  I . 

7  r  0 

,  E » 

^  . 

t .  j  r . . 

,  8  r  0 

.3 

*4L, 

*  - 
,  *tf  . 

0  !  4.  . 

.0,0 

,6*2 

,  0  !  0. 

.0, 

i.i 

» 2 . 

3*0 

.5, 

1.0*4. 

,  J  »  L 

,4 

.1 

f  0, 

.ill 

C-tL  i 

.4,1 

■i  * 
,1!  »1 

,4*0, 

.0, 

2  .  Jf 0  . 

?  !  1 

,4, 

1 . 5 1  l  . 

,4*1, 

.0 

!  1  , 

,3.0 

0.1, 

,2*0. 

C  ' 

,  J  J  i 

,  2?0 , 

.0, 

i .  0 » 0 .  b » i .  i » i .  #  *  i .  5 * 4 . 0 » 2 . 0 » L  %  4 » 1 .  l  » 0 . 0 1 1 . : » 0 . 0 * 0 .  0 1 
0 . 7 » 0 , 7 }  1 .  » i .  A  *  1 , 9 » 2 . 4 » 0 .  §  t  i .  0 » 0 . 5 * ; .  3 » 0 . 0 * 1 .  o  ♦  . 0 » 
..  .  3 * 1 »  2  f  0 . 8  r: .  0 )  3 , 5 1 4 . 0  f  2 .  i  *  Z ,  4 » i  ,  2  >  0 . 0 » 1 .  :  » 0 . 0 .  0 . 0 » 
0. 010.010. £*0.0*0. 010. 0*0. 010, 0  *  0 . 0  »  0 . 0  1  0.010,010,0/ 


«Oii»  v£LI(jMi  A  Mi  HIGH  RATtS  Of  TRAVEL.  ;SPttDr  that  AN  A/U  CAN 
’AX if  TnA  AN  A/C  -.AN  EE  TOWED*  AND  T*iAT  A  CREW  CAM  EE  E.SED  'Ji 
AN  A:A>IlLD. 

DA -A  TO#  /.  134*  .26-Ei  .402. 
da  A  TAXI /  .402*  ,til\  1 1  ,'dTiI 

r.  A  -  *  /  "»  -  «  ,-V  *»  •*•  I 

uS  t  "•  •.  *  i «  1  .  o  .■  .  * ,  i  ■■•  7  ?  i  .  v  i  :  / 


SEne*  ?!  TURNAROUND 


FUEl  CAPACITY  OF  CENTER  uliVt  "ANVt  w.’NG  Thfi*.,  AND 
jA.TA  CPC  ENT  f.PWINGfCP  INTR.-  600,0*600. 3*54-00. 0  > 

FUEL  CONSULT  I »jN  ^ ATE  *-M  GROUND: 

DA "A  CDRATE/40.0/ 

^AX  CRJJND  jP. Rh •  .Si.*  .  ;E*iRt  RtG-TR.Nv  •■.£.*  uEi.. 
DATA  CND‘4AX/;5.0, 

PERCENT  0*  INTRNA_  r. - _  ^E*-T  -  '*•*•  !.**•» 

-  w  1  ..  ; 

DA  .A  f'c.RwtP-!  .  *0 * .  It * .  tti- 

RE F LIE u INC  RATE:  !*IN  r.Zi  **AX 
DATA  RE-Rh  ;■  *40.0»500,0i 5 60.0/ 


DEALING  "I NEE: 
NORHAu : 

HUNG  ORD • 5 
RUN* At  GUN: 


*IH  NOD  m 
DA • A  DARNNOR/  I.0f i. 0*3.0/ 
DATA  DAPMHuG/  A ,0i t, 0i 10,0 / 

iiA T A  DARNfvijN  /  j .  0 » 0 .  i » 1  j  .  0  / 


tsmm 


f.'^p 

7 

L  j  *  _  j  D  i  C  G-.’t  * 

SZ7 

DA -A  ^ARHE?-/ 

C  •'  ,1  *-7  .1  : 

j » o » ■:  ,  o »  l  t> .  v  1 

6l3 

c 

*U  ? 

c 

630 

■*- 

RE«f\M;SC  T.^EjI 

1 3 : 

c 

~  *  5  hod  max 

6:3 

SO  CRCHrtBCE: 

63  j 

l-ATA  RAvMNCS/ 

IE. 8i 15.0704.0' 

6‘3* 

: 

UNLOADED  GUN* 

635 

"♦•7m  RAR^G-JN/ 

- .  0 » 1 0 . 0  *  1 5 . 0  / 

636 

c 

H'jNC  3RD.: 

f  ■>*» 

•j  :•  i 

DATA  RAR^nijG/ 

:.0i‘.8.0i  i5.87 

635 

5 

EAD  C-J»i 

i  ?  V 

DA  Tii  -lAn'HBGN/ 

6  0 . 0  f  1 2  0 . 0 » 1 8  0 . 0  # 

448 

>r 

■ 

■.  ■*  j 

- 

in 

t:’A3,!:*,»  •m^ATIvE  rC  7Nu** 

»»nA ;  ;He  .  BEi 0HE5  DA-  -.C-H.? 

•  4  7 

:  ** . 

C 

nw-*  •  :#£  .  \tt  ■  5  t--ARK*  AND  urth ; !r  INI  .  DAK?'  (*N7DA\1,I; 

6  it 

V 

DA  *  i  l 

6^7 

L* •*  ■  «  DAI.Gm*/  1 .  ,  a }  lir<5 « 0 » 

Z :  ?  5 . 0 

i4; 

DAT-  /975.0J wAi 5.0» 

3655.0, 

649 

' 

458 

45; 

4  :-l 

.  •* !  «,Hl\  **  -  ,  ;  vj£,  , 

65: 

1A-JEV*.*  14  v-i  vRD’OR  *~5T  OR 

IvE4  "“E  '•aSTt'  '.'LOCK.  I  DE'ERNINt; 

6:4 

4 HEN  *£'  AC'Id'IE?  ARE  ?C  EE 

GIN.  "■it  K£7  ACTIVl*IE$  ARE: 

45: 

0  EsyINATt  THE  RUN 

*T4 

1  S’ART  iCwtSJLIW  EwtC-H 

7: 

;  -  7 

i.  3to*N  NIu--'  •  A  ASKING  Or 

4,; 

c  5c 

:  -  t.Rf*  jnifi  QRA  CtfANGEOve* 

6?7 

•"* 

A  C£7ER((!tj£  RESURPLr  REG 

UISErtENT  AND  SECONE IGuSE  FOR  NET  DAT 

660 

c 

99  NOTHING 

50  1 

5 

’wt  F4P.§,  v'A^JE  C*  EACs  PAIR 

ij  -He  I ME  RELATIVE  • 0  THt  EcGINNIND 

004. 

C 

'r  *Ht  5 IB'. LA" ICR  THA7  'HE  AC 

T * v ;  ••  Y  S?tCIFitD  BY  »h‘E  tt.  jND  VAl.T 

00? 

•- 

ur  Tnt  -AIR  .o  :  3  BE  IN;  i  *AT£D  vie.  The  r IRbT  ?AIR  OF  NUHttn.-!  I? 

;6i 

c 

■J.s  AND  4.3(.  a  BAXIJW  of  T 

HIREtN  At ; ivl : IE9  CAN  BE  :5hEDulEI . 

•6  o  5 

3 

6  66 

DO  13  i  *  It  1 1 

oo 7 

Bflu£VK7 (..I:  =  9 99999. 8 

too 

flfl-jtVM <I»2i  --  99.0 

64  v 

i  3 

51 \ . iNuE 

6  o 

c 

r  7  * 

^A-jEvNT  C .  1 1 )  =  10,0 

47Z 

MAjtVNTd it)  -4,8 

675 

MA^EVNTitri!  r  14.0 

674 

Mh*JEvN|  iu<.>  -  .  ,  0 

67: 

hajEVSTIS.;-.  -  974.0 

144 

4 


MAjEWT;3>2)  -  3 .0 
■^AJEVNT ■; 4 i l !  -  380.0 
*AjEVNTi4.2!  -  2.0 

MAJEVNT(5.1f  =  1450.0 
MA.jEVJiT(5.2)  =  4.,; 
MAjEVNT  16.1!  ^  1456.0 
MAoEVNTioiZl  -  1.0 
MAJEvNT !7»U  :  2416.0 
*  A  ut  v  V  T { 7 » Z 1  :  3.0 
NAvEVNT;Stl>  -  2420.0 
MAJEVNTIS.Z)  ;  2.0 

?A..EvNT(9fi!  -  2830.0 
MA.jEVNT(9i2!  =  4.0 
*A.jEVNT(i0tl):  2836,0 
MAOEvN1 (10.2S -  1.0 
MAOcVNT { 1 1 . 1 ) -  3656.0 
MAhEVNTU1i2;  =  3.0 
«AJEVNT(tZ»i: -  3860.0 
MAJEvNTdZ.Zl  =  2.0 

“A.jtVNT !  1 3 1 1  ‘ -  431V. 0 
HAJEV:,TU3r2S:  0.0 


ZERO  OUT  THE  GJSAu  VARIABLES. 

DO  100  I  -  1.100 

X X 1 i )  :  0.0 

.00  COSTIVE 

Cfilu  THE  USER  I^riAwIZATIOV  ROUTINE  AND  SET  THE  RESOURCE  _EVEL 

CAL.  USER  1 

DO  i.00  I  :  1 1 48 

CAL-  ALTER ( I »N  *^RtS ( I ) : 

100  CONTINUE 


PROBABILITY  OE  A/3  DELAY  AT  PIlQT  PREFUGHT: 

X X (65)  =  .25 

PROBABILITY  OF  A/C  DELAY  AT  START  ENGINE: 
mu)  --  .15 

FROEABIlI'Y  OF  A/C  DElAT  at  TAXI. MARSHALL. arm: 
XX (671  =  .10 


PROBABILITY  OF  flight  DElAT  AT  TARE-OFF: 


I 

i 

t 


M 


t.6 

XX  ;fa81  =  .03 

111 

c 

728 

c 

PR08AEUT7  OF  A/C  Dttir  AT  REJOIN: 

m 

*4(691  -  .10 

m 

c 

*>.•■% « 

1 3  j. 

c 

rot 

V 

ZERO  OUT  PARKING  AREA. 

73  c* 

c 

734 

DO  300  1  r  1(6 

73? 

DO  800  J  =  1(50 

734 

DO  300  K  =  1(2 

T-VT 
/  3  0 

SPARK i 1 1 0 r  K )  :  0 

7  38 

303 

CONTINUE 

■> 

/  :  7 

w 

710 

</ 

NARK  'iRA  PARKiNC  iPACEO. 

^  «  4 

/  ti 

DO  ; 1 0  i  -  1(4 

n- 
7  **L 

CO  310  0  =  id-IXUMlU 

74.3 

NPARK!I(,.(Z;  =  1000000 

741 

510 

CONTINUt 

745 

V 

744 

C- 

747 

SO  478  1  =  1(6 

748 

IF(ACTIVE(imxi49  ♦  I)  -  1.0 

7  43 

678 

CONTINUE 

750 

Cr 

751 

V 

75  i 

c 

SPEC. FT  INITIAL  CONFIGURATION  OP  RESUPPL' 

753 

XX (59)  -  2 

75* 

c 

7C5 

•  Jv* 

u /  500  I  ~  1 ( 300 

754 

NCSOd!  =  999999 

757 

500 

CONTINUE 

753 

c 

757 

RETURN 

760 

END 

761 

L 

762 

763 

c 

764 

c 

*» »  r 

7  3-J 

c 

764 

i* 

767 

v 

768 

L- 

146 


t 


* 


77  3 


11* 


7**  * 
F  /  7 

775 

775 


m 
'  / 


778 

779 
793 

78: 


’s2 

78; 

781 

785 

756 

787 

758 

789 


791 

792 
795 
791 
795 
798 

797 

798 

799 
333 
531 
832 
335 


SUERQUTINE  GTPU7 

COmO»/SCORl/flTRIB(lM».D3(133).SDL(lM).D7NOIi.iI.MFA.HS;OF.NCLMR 
4. NCRDR.NPRNT.NNRsJN.NNSET.NTAFE, 38(1031 . SSLU0#) » TNEXT.TMOU. XX<  100) 
COHrtON/PFLAC/HAXPRT,LE*'PRT,8PRT,E?ST 

SECTION  70  PRINT  A  FILE  DUN?  AT  THE  END  OF  A  RUN. 

IF  (!tAXPRT.GT.99)MAXPRT  =  99 
IHNAXPRT.CT.3i  THEN 
TO  130  I  =  i.HAXPRT 
CALL  PRNTFil) 

133  CONTINUE 
END  If 

I P i LEvPR’ , GE . 2 . AND . T  NOW . Ct . BPRT . AND . TNOU . LE . EPRT  >  THEN 
PRINT*, ’**♦  Nl.xOER  OF  A/C  FAILING  ' . XX (1001 
ENDIF 

PRINT*,’ . ’ 

PRINT*, 

PRINT*,’ ^RESPONSE  VARIABLE*’ 

PRINT*, XXS941 
PRINT*, 

PRINT*,’ . ’ 

RETURN 


C 


147 


FUNCTION  USERF(IFN) 

COTMD.N/ itmi  ATRIB (l««JtDDUMi.BD.(lM>» DT«0W . ! I.BFA.MSTOP.NCLNR 
itllCRCRtNPRNTr^RUN.N«5ET»NTAP£»SS(10«l . SSi. (1001  .’NEKT.TNOU.  »:  1001 


387 

CQMDN/PFlAC/HAXPRT.LEVPRT.BPRT.EPRT 

308 

COMNON/RSORCE/NUMRESIW) 

839 

CORHOH/iTATS/MAKCONFU)  ,«ACTtPE!6»3l  .NCSQ!300)  ,HSNRGA2,MSNFOI<3. 

318 

oil 

C 

•M  »  f, 

OIL 

All  THE  USER  FUNCTIONS  lUSERFi  ARE  DIVIDED  INTO  THIRTEEN  SECTIONS 

b .  : 

814 

V. 

SECTION  SECTION  ENTS* 

function  number  number 

i  1  j 

NUMBER  NAME  ADDRESS 

range  ufns  in  use 

§10 

817 

1  UTIlITY  1300 

11  TO  19  9 

818 

V 

2  PARKING  l&M 

21  TQ  39  3 

■319 

A 

3  EXAMINE  CODE  3000 

31  T3  39  9 

830 

C 

4  RESET  CODE  4800 

4i  TC  49  7 

* 

L  * 

o 

5  Ai.’tR  CODE  5000 

5!  TQ  59 

822 

p 

&  TRAVtL  TIHL5 

t:  *0  4°  7 

•’5L  j 

7  TURNAROUND  7006 

t  *  t  .*■  7  •  j 

824 

* 

8  y INC  SERVICE  8000 

81  'j  89  4 

335 

u 

9  KMT  SERVICE  9000 

92  T,]  ;■?  t 

3  24 

c 

1#  SQDN  SERVICE 

10!  TO  .39  4 

827 

c 

11  MAINTENANCE  11000 

'0  iiv  3 

338 

V 

13  S'A'IS'ICS  12000 

32.  ?C  129  5 

82? 

r 

33  MTE-  DiST,  1 3600 

131  *0  139  7 

830 

c 

331 

* 

832 

t 

EACH  SECTION  HAS  ITS  ]«N  COMMON  Bl'C« 

'  (IF  REi'D)  AND  DATA  STATE- 

8j3 

i 

RENTS  FOR  USER  PROVIDED  INFORMATION, 

THE  COMMON  BLOCK t  F0U.0*i: 

834 

f- 

835 

USER  PRi.WiDED  COMMON  E.vOr : . 

006 

837 

£ 

SE.IVjfc  If  f  C EVj7K‘ 

338 

COWKW/UCOKI/lCRS* ■  34 :  .V- S*.lT0M24 i 

f N?OfcrLBAT  f  l  * ' f NBA : 4 

839 

i  PP^Gu!V2»P^9i?.N^fPGUNEJ(Pf 

PCUNRmN  i  PE*DROP  •  5HUNCBM  > 

840 

i  FATTR2(3; »4ATTR3(3) iPDA? 

•2  ‘  3  J  fPDAflo l3) if DL(5) » 

34: 

&  DURBIN  •  :<> » DJ^flGu l3'  u'ORflAl  ( 3} » E'RLl-tN  ( 3 '  * k Puii » *  3  * 

848 

c 

843 

c 

SECTION  2 t  PARKING  COMMON  BlOCK: 

344 

U)  WCN/UG OH 2 /NP ARK \h » 50 1 2) tN t 1P£  (&» 3) 

845 

p 

848 

p 

SECTION  5.  AJER  CODE  COMMON  BlOCK: 

847 

C0MfI0N/UC0M5/STS(4r41  iSTSTOLINi  tMTEf  (01  >AlP16) tBE'16) iN8ATREP(5) i 

848 

i  ERUNNIN.ERUNMAX 

849 

>2 

850 

c 

SECTION  61  TRAVEL  TIME  COMMON  B.OCK: 

85! 

COHMON/yCGMi/CIST (13»13>  «T0W(3)*TAZI 

31 -CREW (3! 

353 

V 

353 

c 

SECTION  7 1  TURNAROUND  COMMON  SLOCK: 

143 


1 


854 

855 

S56 

857 

858 

o  "  V 
860 
38 1 
888 
863 

884 

885 
888 
887 
388 


370 

871 

872 


COMMON / UC0M7 /NOCtUT (3  * >N0NINC!3) » CFCENT i CPUINGtCPINTR, 
i  C  DRATE . GNDMAX , PERLE?  T ( 3 ) , REFRAT  <  3 ) . UPT I ff E . DU  T I HE » 

4  DARNNGR(3'  tDARKHUG (3)  f  DARMRUN  (3)  ,DARMEXF<3) , 

i  RARMfuGR (3 1  »RARHHUG (3)  .SARHGUN(3) .RARHBGNl?) 

C 

C  SECTION  8.  WING  SERVICE 

C0NM0N/UCCN8/MIM  (5)  .MODE!  (51  ,NAK1  (5)  *MINZ(5?  ,K0DEZ(5)  ,NAK2(5) , 
i  NIN3(5)  ,N0DE3<5!,HAX:3(5)  ,NIN4(5)  ,N0DE4!5!  ,NAK4(5i . 

i  MINS <5 ) « MODES (55  »MAX5(51  ,MiN4(5)  ,MODE6(5),HAX6(5) . 

i  ASH! INT (3) .WSH3INT (3) 

l 

C  SECTION  9 i  HHT  SERVICE 

GOMMGN/UCGMV /MilTMIN  t4 , 2 i • *MTMOD ii . 2 1 . KMTHAK  <  8 . 2  S 

b 

C  SECTION  10.  SQUADRON  SERVICE 

coHdON/i'coma/fiiNi  (51  .hodei  :5i  .maxi  (5.- 

L 

C  HE  RUwtCilNG  ARc.  VARIAELt  ”K®E  DECLARATIONS 


0/ ; 
374 
875 
874 
87’ 

878 

879 

885 
881 
882 
3S3 
384 
ob5 

886 
887 
383 
839 
390 
39! 
89l 
S93 
894 
395 
896 
397 


REAL  NINl.K0DEl.NAKi.KiN2.N0DE2.HAX2.NIN3. NODES. MAX3. 
i  ,HN4iH0DE4,MAK4»HIN5iNCDE5.HAX5  iNIN6.M0DE6.NAK6. 

8.  KINi.NODEi.NAKI.NNTNIN.NNTKOD.NNTNAK.NTE' 

INTEGER  MXCODE (7) »lEV(4| 

LOGICAL  nntow.  NNCRSH.  NNE'AT 


I F ( LEVPRT . GE . 6 . AND . TNOW . GE . BPR7 . AND . TROW . LE . EPRT ) THEN 

PRINT*, ’PUNCH ON  MFN,'  CALLED.  TIME  ’.TNOU.S  A/C  1  ,ATRIB(2i 
ENSIF 

BRANCH  TO  THE  SECTION  OF  THE  USER  FUNCTION  DESIRED. 

I  =  IFN/ 10 

GOTO  (1003, 2000*.  3002, 4003. 5000. 6000, 7000. 8000. 9000. 10000. 

11000, 12000, 13000), I 


149 


398 

C 

399 

P 

SECTION  it  UTILITY  --  USERF Hi)  TO  LSERF- ;9; 

908 

C 

901 

1000  CONTINUE 

981 

C 

71?  ti 

C 

GLOSSARY  OF  VARIAE.ES  USED  IN  THIS  SECTION 

m 

c 

CUHN3N/UCGM1/lCRSH(24!  .NCRSw.L r 0W(24J  * M T 0#4 1 u BAT  124)  ,  NBAT , 

905 

c 

4  ?FRGUN2 . PFRGUN  3 . PGUNE  XP.PCUNRUN , PBMDRQP .PHUNGBM , 

986 

c 

4  PATTRK3;  .PATTRli 3)  ,PDA*2(3)  .PDAMSf 3 )  ,?DL(5i . 

907 

c 

4  DORN  IN ;  j;  .DURMOO  (3)  >  BURMA X  ’  11  ,-RLlENT  » 3  j .  -'Alm  INGi 

988 

c 

INTEGER  MX  CCDS  1 7 ) 

909 

o  •  '1 

c 

-0G ICAw i NNTOW i NNCRSH  >  NNEA" 

7  .  v 

911 

; 

.NTEGE4  VAljE  VARIABLtS! 

9i : 

P 

j.RS'  *  lNL.DE  .EviL?  *HI.n  CAUSE  hl  A/..  „  .RASH, 
nCRSH  -  NUMBER  QT  iNCODEB  .EVELl  iN  l'-Rsm, 

’14 

V 

.'ON  -  ENCODES  MX  LEVElS  WHICH  CAUSE  AN  A/C  TO  BE  TOWED. 

91: 

p 

NTOW  -  NUMBER  OF  ENCODED  lEVEiS  IN  lTOW. 

914 

L 

.BAT  -  ENCODED  MX  4  BATTLE  DAMAGE  LEVELS  THAT  CAUSE  THE  A/ 

917 

c 

T0  CRASh. 

9  is 

NEAT  -  NUMBER  OF  ENCODED  LEVELS  IN  LBAT. 

9 1 9 

w 

NFUNC  •  FUNCTION  BEING  ACCESSED. 

918 

c 

MXQDE-  TEMPORARY  STORAGE  TO  DECODE  THE  MX  FAItURE  CODE. 

911 

L 

NO IV  -  TEMPORARY  DIVISOR.  USED  TO  DECODE  VALUES. 

911 

L 

SCODE  -  TEMPORARY  VALUE  OF  NUMBER  BEING  DECODED. 

911 

C 

NVAL  ■  .NDIVIDUAl  digit  of  encoded  number. 

914 

r 

925 

926 

■j 

LOGICAL  VAlUE  VARIABLES! 

927 

■ 

NNTOW  -  FlAG  USED  IN  DETERMINING  IF  A/C  REQUIRES  TOWING. 

921 

p 

Ur 

NNCRSH-  FLAG  USED  IN  DETERMINING  IF  A/C  CRASHED  IN  FLIGH*. 

929 

c 

NNBAT  -  F..AG  USED  IN  DETERMINING  IF  A/C  CRASHED  AFTER  OR 

930 

a -21 

p 

u 

p 

DURING  A  MISSION. 

932 

u 

END  OF  GLOSSARY. 

93* 

c 

934 

c 

935 

c 

DETERMINE  WHICH  USER  FUNCTION  IS  BEING  ACCESSED. 

936 

NFUNC  =  MODdFN.10) 

937 

93  S 

p 

GO  TO (1100 .1200 .1380.1400,1500 .1680. 1700 .1000. 1908! .NFUNC 

939 

940 

o 

c 

941 

c 

FUNCTION  UuERF ;  1 1 ) 

942 

L 

THIS  ROUTINE  ASSIGNS  THE  CORRECT  STATUS  TO  EACH  PILOT  BEING 

94] 

ft 

L 

ENTERED  IN"}  THE  SYSTEM,  GLOEAl  VARIABLES  XX(61!.XX(62) .XXI63! 

944 

L 

AND  XX (71)  ARE  USED  TO  GENERATE  THE  STATUS,  THEY  ARE: 

945 

XX (61  -  NUMBER  Of  PILOTS  ON  QRA  ALERT 

544 

G 

XX (42)  -  TOTAL  NUMBER  OP  p I LOTS  QRA  QUALIFIED  (INCLUDING 

9*7 

r 

ThOit  UN  ALERT). 

150 


946 

c 

XX (63)  -  TOTAL  Ni.iH.BER  FLIGHT  LEAD  QUALIFIED  PILOTS  (INCLUDING 

949 

c 

ALl  PILOTS  THAT  ARE  QRA  QUALIFIED).  AND 

956 

i. 

XX(71)  -  COUNTER  OP  PILOTS  BEING  GENERATED. 

931 

C 

XX (50)  -  EQUALS  1  IF  RESUPPLY  AIRCRAFT. 

95Z 

c 

XX (57!  -  NUMBER  OF  ORIGINAL  A/C  PER  SQUADRON. 

953 

u 

XX (58)  -  NUMBER  OF  ORIGINAL  PILOTS  PER  SQUADRON. 

954 

c 

955 

1.00 

IF(TN0W.LT.0.1)7H£N 

956 

c 

ASSIGN  STATUS  OF  PILOTS  INITIALLY  ON  STATION 

957 

USERF  =0.0 

956 

!F!XX(71).LE.XX(63))  USERF  =  1.0 

959 

IF(XX(71) ,LE. XX (62) <  USERF  =  2.0 

966 

IF(XXi71!.LE.XXi6D)  USERF  =  3.0 

96  i 

Else 

962 

c 

ASSIGN  STATUS  OF  RESUPPL'  PILOTS 

96  v 

r 

ASSUME  SAME  RATIO  OF  PILOTS  FOR  EACH 

964 

CATEGORY  AS  ORIGINALLY  ON  STATION 

965 

USERF =0.0 

76  d 

!F(XX(7l! .LE. XX(6:i*XX (57) /XX (58) )USERF=1.0 

967 

IF(XX;7i).LE.XX(62)*XX(57!/XXi58!!USERF=2.» 

366 

ENDIF 

969 

RETURN 

970 

c 

971 

c 

972 

f* 

FUNC’ICN  USERF (12) 

973 

c 

THIS  ROUTINE  DETERMINES  IF  TOttING  IS  REQUIRED!  IF  SC.  RETURN  A  1, 

37i 

c 

IT  DOES  THIS  BY  SEEING  IF  EACH  Did’  OF  THE  MX  FAILURE  CODE  IS 

975 

c 

GREATER  THAN  OR  EQUAL  TO  THE  RESPECTIVE  DIGIT  IN  LTOH  BEING  TESTED 

976 

f 

IF  THIS  CONDITION  IS  ME’  FOR  ANT  ENCODED  NUMBER  OF  L’OW.  THEN  THE 

977 

c 

A/C  MUST  EE  TONED  AND  USERF  EQUALS  1. 

976 

979 

ij 

960 

1200  NDIV  =  1800000 

961 

NCODE  =  ATRISiiS! 

982 

C 

983 

c 

DECODE  THE  MX  FAdURE  CODE  FOR  TAXING 

984 

DO  1210  .  :  1.6 

985 

NCODE  =  mod (NCODE. NDIV! 

966 

NDIV  =  NDIV/ 10 

v  87 

MXCODE(I)  =  NCODE/NDIV 

986 

continue 

989 

c 

990 

J  =  1 

991 

1220 

CONTINUE 

992 

NNTOH  =  .TRUE. 

993 

NDIV  =  1000000 

994 

NCODE  =  LTOW(U) 

995 

DO  1230  I  =1.4 

996 

c 

DECODE  THE  TONING  CODE  AND  COMPARE  TO  MX  FAILURE  CODE 

997 

NCODE  =  HOD(NCQDE.NDIV) 
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998 

NO  IV  -  NO  IV/ 10 

999 

NVAL  --  NCODE/MCIV 

1800 

Lr 

IF  NX  FAILURE  lEVEl  <  USER  PROVIDED  CODE  FOR 

1001 

AM  GIVEN  DIGIT.  THEN  DO  NOT  TON. 

1002 

IF'.MXCGOEdl .lT.N'v'ALI  NNTOW  =  .FALSE. 

1003 

1230 

CONTINuE 

1004 

J  =  J  +  1 

1005 

C 

IF  NO  NATCH  AND  KORE  ENCODED  NUMBERS.  TRY  AGAIN 

1008 

IF LJ.LE.NTOU.ANB. .NGT.NNTOW)  GO  TO  1220 

1007 

USERF  --0.0 

1003 

IFtNNTOWi  USERF  =  i.0 

1009 

RETURN 

1013 

C 

1011 

C 

•  a  « jy 
tV  i  L 

i„. 

FUNCTION  USERF (13) 

1013 

C 

THIS  ROUTINE  DETERMINES  IF  AN  A/C  CRASHED  DUE  TO  A  NX  FAILURE 

1014 

v 

WHILE  IN  THE  AIR.  IT  OPERATES  SIMILAR  TO  USERF U 2) . 

1015 

r 

<* 

1  0  t  0 

1300  NO  IV  =  1000000 

1017 

NCCDE  =  ATRI8U8! 

1018 

c 

1019 

DO  1313  I  =  Ut 

1020 

NCODE  =  HOD(NCODE.NDIV) 

1021 

NDIV  =  NCIV/10 

1022 

MXCODE(I)  =  NCODE/NDIV 

1023 

1310 

CONTINUE 

102» 

1025 

■J  =  1 

1024 

1320 

CONTINUE 

1027 

NNCRSH  =  .TRUE. 

1028 

NDIV  =  1000000 

1029 

NCODE  =  LCRSHU) 

1030 

c 

1031 

DO  1330  I  =  1,6 

1032 

NCODE  =  NOD! NCODE, NDIV) 

1033 

NDIV  --  NDIV/10 

1034 

NVAL  =  NCODE/NDIV 

1035 

IFiMXCODEC) .LT.NVAL!  NNCRSH  =  .FALSE. 

1034 

1330 

CONTINUE 

1037 

•j  =  J  +  1 

1338 

IFU.LE.NCRSH. AND.. NOT. NNCRSH)  GO  TO  1320 

1039 

c 

1040 

USERF  --0.0 

1041 

IF (NNCRSH)  USERF  =  1.0 

1042 

RETURN 

1043 

C 

1044 

c 

1045 

c 

FUNCTION  USERF (14) 

1044 

c 

THIS  ROUTINE  DETERMINES  IF  AN  A/C  CRASHED  DURING /FOLLOWING  A 

104? 

c 

MISSION  DUE  TO  A  COMBINATION  OF  MX  FAILURES  AND  BATTLE  DAMAGE 

152 


•  t  i 


.248 

c 

FAILURES.  IT  IS  SIMILAR  TO  USERFU21.  EXCEPT  THE  BATT.E  DAMAGE 

1249 

IS  ALSO  CONSIDERED. 

1050 

c 

'051 

1400  NO  IV  =  1000000 

1052 

NCGDE  =  ATRIBU8! 

1053 

1054 

M1CODE17!  =  ATRIB! 18! 

1055 

DO  1410  I  =  1.8 

1058 

NCODE  =  HODINCOOE.NDIV) 

1057 

CIV  =  NDIV/10 

1058 

MXCOBEUi  =  NO  ODE /ND IV 

1059 

1410  CONTINUE 

1080 

c 

1081 

J  =  1 

1082 

14<J 

CONTINUE 

1083 

NNEAT  =  .TRUE. 

1084 

NO  IV  =  10000000 

1085 

CODE  --  LBATiJI 

1 086 

1087 

DO  1430  I  --  1.7 

1088 

NCODE  =  MOD(NCODE.NDIV) 

1089 

NDIV  =  NDIV/10 

1070 

NVAl  --  NCODE/NDiV 

1371 

IFIMXCODEC! .LT.NVAL)  NNEAT  =  .FALSE. 

1072 

'  A  ■N'T" 

* 

CONTINUE 

1072 

c 

1074 

•j  ;  j  +  2 

1075 

IFU.LE. NEAT.  AND.. NOT. NNBAT)  GO  TO  1420 

1078 

c 

1077 

USERF  =  0.0 

1078 

IFtNNBAT!  USERF  =  1.0 

1079 

RETURN 

1080 

c 

1081 

c 

1082 

c 

FUNCTION  USERF (15) 

1083 

c 

THIS  ROUTINE  DETERMINES  WHAT  OCCURS  TO  THE  A/C  DURING  "HE  MISSION, 

1084 

c 

IT  RETURNS  THE  MISSION  DURATION  THROUGH  THE  NAME.  IT  SETS  THE 

1085 

L 

BATT.E  DAMAGE  CODE.  ATRIB116).  TO  A  LEVEL  OF  0  TO  5.  OR  99  IF  KlLi 

1088 

c 

ED.  THE  DURATION  AND  BATTLE  DAMAGE  CODE  ARE  EASED  ON  THE  AREA  THE 

1087 

c 

iS  GOING  TO.  WHICH  IS  A  FUNCTION  OF  TANK  CONFIGURATION.  ATRIB112I 

1088 

c 

AND  THE  NUMBER  OF  A/C  IN  THE  'LIGHT.  IT  ALSO  DETERMINES  THE  WEA¬ 

1089 

c 

PON  STATUS:  ATRIB  (9»  *  ATRIB  (10) .  AND  ATRIBU1) !  AND  ANY  CHANGES  IN 

1090 

c 

TANK  CONFIGURATION.  ADDITIONALLY.  IT  INSURES  THAT  EACH  A/C  ON 

1091 

c 

THE  SAME  MISSION  RECEIVES  THE  SAME  SORTIE  DURATION. 

1092 

c 

1093 

w 

MISSION  NUMBER  AND  NUMBER  OF  A/C  IN  THE  FLIGHT. 

1094 

1500  MSN  =  ATRIB(48) 

1095 

NAC  =  ATRIB (44) 

1098 

C 

1097 

C 

DETERMINE  MISSION  DURATION  AND  TO  WHICH  AREA  THE  A/C  IS  GOING 

-  «... 
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1098 

1399 

US0 

1101 

1102 

1103 

1104 

1105 

1106 
1107 
1106 

1 1 09 

1110 


1113 

111* 

1115 


11:9 
1120 
1121 
1 1 1.  i 

1123 

1124 

I  *tJ 

1124 

1 127 

1128 

1129 

1130 

I I  j  . 


IF { XX  tHSN)  .Eli. 0.0)  THEN 
XX(97i  ;  ATR  18(47) 

IFtXX (97) .£9.1.0)  THEN 
MSNFLild!  -  MSNFLNU)  +  1 
ELSE  IF (XX (97) .EQ.2.0)  THEN 
IFlM$NFLW(2) .GE.HSNRGA2)  THEN 
XX  (97)  =  1.0 

MSNFLN(l)  =  MSNFLN !  1 )  +  1 
ELSE 

HSNFlW(21  -  MSNFlH(2)  +  1 
END  IF 

else 

MSNFLk(3)  =  HSNPLW13!  +  1 
END  I* 

NAR  =  XX :97) 

XX (MSN)  -  TRIAGlDURMINtNARI i DURMOO ( NAR ) > BURMAX f  NAR ) >  3 i 
END  IF 

ATRIE  .'47)  =  XX  (97! 

J3ERF  =  XX (MSN) 

PRINT  STATEMENTS 

IF(LtvPRT.GE.3.AND.TN0W.GE.EFRT.AND.TN0y.wE.EPRT)THEN 

PRINT*,' -AIRCRAFT  NUMEER  ’>ATRIB(2),’  IS  ASSIGNED  TO  MISSION 
t  MSN,’,  CURRENT  TIME  IS  ‘ , TNOW 

ENDIF 

IF (LEVPRT . GE . 4 . AND . TNOH .GE . BPRT . AND . TNOW . lE . EPRT 1  THEN 
PRINT*,’  MISSION  DURATION  IS  MX  (MSN) 

PRINT*,’  AREA  IS  ’ ,ATR!E(47) , ’  AND  #  TANKS  IS  ’,ATRiEil2) 
PRINT*,'  TOTAL  SORTIES  GENERATED  SO  FAR  IS  MXI94) 
tNBIF 


1132 

1133 

1134 

1135 
1134 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 


C  DETERMINE  STATUS  OF  GUN. 

X  =  DRANC13! 

IF (NAC.EQ  2.AND.X.LE.PFRGUN2)  AIRIB19)  =  0.0 
I F (NAC . EQ . 3 . AND . X . LE . PFRGUN3 )  ATRIE(f)  =  0,0 
C  IF  THE  GUN  HAS  SEEN  FIRED,  DETERMINE  IF  IT  MALFUNCTIONED. 
IF(ATRIB(9) .EQ.0.0)  THEN 
X  =  BRAND (3) 

I F { X . LE . PGUNE XP+PGUNRUN )  ATRIB (9>  =  2.0 
IF(X.LE.PGUNEXP)  ATRIB (9)  =  3.0 
ENDIF 

C  DETERMINE  STATUS  OF  BOMBS. 

X  =  BRAND (3) 

IF(X.LE.PBMDROP)  ATRIB!10i  =  0.0 
C  IF  BOMBS  ARE  RELEASED,  DETERMINE  IF  BOMBS  HANG  UP. 
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;;4g 

:  149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 


1161 
1162 
i  ito 

1164 
1 163 
1166 
1167 
1163 
1.69 
1178 
117! 

1172 

1173 

1174 

1175 
im 

1177 

1178 

1179 
1160 
1161 
1182 

1183 

1184 

1185 
1166 

1187 

1188 
1189 


1191 

1192 

1193 

1194 

1195 

1196 

1197 


IF(ATRIBi!0/.E3.0.8)  THEN 
X  -  DRANDS3) 

IF(X.tE.PHUNC8M)  ATRIB { 10)  =  2.0 
ENDIF 
C 

C  DETERMINE  MISSILE  STATUS 
ATRIE(ll)  =  ATRIB(11) 

C 

C  DETERMINE  STATUS  0?  EXTERNAl  TANKS 

NA  =  ATRIS1121 
NW  =  NON  I  NO (NA I 
NO  =  NGCENT(NA) 

NL  =  ATk i d  1 47 ) 

6 

X  =  DRANBC3! 

IF (X . LE. PRUNING (NLl )  Nii  =  0 
IFiX.LE.PRLCENT (NL! i  NC  =  0 

,3  KNOWING  THE  NUMBER  OF  WING  TANKS  (NW>  AND  THE  NUMBER  OF 

C  CENTERLINE  TANKS  (NO,  DETERMINE  THE  ft/C  TANK  CONFIGURATION 

C  CODE  AND  SET  ATRIB(12). 

IF (NW.EQ.0.ANQ.NC.EQ.0!  THEN 
ATR1EU2)  =  0.0 
ELSE 

DO  1520  I  =  liNA 

IF (NOCENT (I)  .EQ.NC.ANB.NOWINGU)  .EQ.NWi  ATRIB <  121  =  I 
1520  CONTINUE 
ENDIF 

u 

C  DETERMINE  ATTRITION.  (FUNCTION  OF  AREA  AND  *  OF  A/C  IN  FLIGHT) 
X  =  DRAND(S) 

IF (NAC,EQ.2.AND.X.i-E.PATTR2(NLI )  ATRIBilSI  =  99.0 
:F;NAC.EQ.3.AND.X.LE.PATTR3(NL1)  ATRIB<U)  =  99.0 

r 

L 

C  DETERMINE  BATTLE  DAMAGE  CODE.  FUNCTION  OF  AREA  AND  NUMBER 
C  OF  A/C  IN  THE  FLIGHT. 

C 

C 

IF (ATRIB (16) .Nt. 99.0) THEN 
ATRIB(16)  =  0.0 
X  =  BRAND (3) 

IF(NfiC.£Q.2.AND.X.L£.PDAH2(NL! !  ATRIB(16i  --  5.0 
IF (NAG ,EQ.3.AND.X,LE.PDAM3(NL) )  ATRIBI16)  =  5.0 
SF!ATRIB(16).Efi.5.0)  THEN 
X  =  BRAND <3! 

IF ( X . LE . PDL ( 1 ) +PDl (2 ) +PDL ( 3) +PDL (41)  ATRIB(!6)  =4.0 
IF(X.L£.PDL(D+PDL(2)+PDL(3))  ATRIB(16)  =  3.0 
IF!X.LE.PDL(1!+PDL!2!)  ATRIB(16)  =  2.0 
IF(X.LE.FDLd))  ATRIEU6)  =  1.0 
ENDIF 


t 
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END  IF 


1  i ’8 
199 


1201 

1232 

1203 

1204 

1205 

1206 

1207 

1208 
:20  V 
1210 
I'll 
1212 


.  i  h 

■  L  iS 

1219 

1220 


1221 

1222 

- 


1226 

1227 

1228 
1 22’ 

1230 

1231 

1232 

1233 
U3* 
1235 
12:6 
1237 
lil36 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 


C 

RETURN 


C  FUNCTION  USERF (16) 

C  INITiAl  DISTRIBUTION  jF  FAILURE  CuDEi  't'R  NuN-O? ERATIuNhl  A/ 
1600  NSuH  -  3 

l  A  53/50  ChANCc.  FOR  EACH  bfS'EH  TO  FAIL.  :►  A  STSTEK  1  ;■ 

3  FAILi  THE  LEvEl  OF  /■AIluRE  IS  UNIFuRHLT  DISTR.EOTtD. 

Du  1610  I  =  1 1 6 

L 

IF(DRAND(3! .LT.0.50)  THEM 

NSUH  =  StSU?*«10  +  ;f:I(DSAND!3H5.99«; 

ELSE 

NSUN  :  NSU^«10 
END  IF 

C 

1610  CON i I HUE 
C 

USERF  =  N2L1J1 
RETURN 


C  FUNCTION  USERF (17) 

0  OBTAIN  CURRENT  SQUADRON  NUMBER  FOR  THE  A/C  DESIGNATED 
C  ST  ATSIB(Z) 


1700  USERF  =  NCSQdFIXiATRlBd; ! ! 

RETURN 

C 

u 

C  FUNCTION  USERF (181 
C  SET  NCSQ  TO  CURRENT  S8#  FOR  GIVEN  TAIL  # 


1800  USERF  ;  XX (72! 

NC3Q(IFIX(XX(72) ) I  =  ATRIB(i) 

RETURN 

C 

L 

C  FUNCTION  USERF (19) 

C  HARK  THE  A/C  WITH  TAIL  t,  ATRIB!2!i  DESTROYED. 
1900  USERF  -  ATRIB(2) 

NCSQ(IFIX(ATRIB(2!1)  =  999999 


■  .'.I  <1011  ’  ■■■’  •• 
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i  ■*•: 

u 

44#4*«4*4 

:Z5* 

u 

SECTION  2>  PACKING  --  >jSERF(215  "0  tSERF  23) 

<'CC 

s. 

44444*44+ 

1  Z.56 

2000 

•CONTINUE 

I'CI 

.  A.L  t 

2 

:Z5t 

c 

dlossart  of  variables  use:  in  this  section. 

1259 

c 

COMMON / UC-Jff’Z /NpARKI fiQ  \  £»50»  il) » NT ;  Pt  ( 6»’i> 

.l60 

i*-6  i 

v. 

INTEGER  vhlUE  VARIABLES: 

124: 

c 

NPARK  -  PARKING  SPACES  PGR  >£  SIX  SOON'S: 

:263 

p 

INDEX  1.  SQuASSON  DUMBER 

i:44 

c 

INDEX  2i  PARKING  SPOT  (SHELTERS >REyEtHENT> DISPERSED! 

1  2t.c 

u 

I ND£X  j»  TWO  SPQTS  (IN  $HElTtR:-l  FuR  NIGHT, 

’»  l6c 

c 

NTTPE  -  THE  NUMBER  Gf  EACH  TfP£  C-  PARKING  FOR  ’HE  SIX  SGDN'9 

'  “  ,? 

■_ 

INDEX  lx  iQOADRCN  NUMBER 

l  26$ 

~ 

INDEX  2.  t»?e  OP  PARKING  SPG*  -  NTTPSd.X!  WHERE 

1  *lo9 

“ 

l-lt  NUMBER  OF  SHELTERS  PGR  S6DN  #» 

1270 

3 

X=Z*  NijHBER  ¥  Rtv’t'HENTb  FOR  :3DN  l» 

1  Hi 

1C>  i 

p 

X*3»  NUMBER  OF  DISPERSED  SPOTS  FOR  SOON  1. 

'  ~'l  ‘ 

L 

NSODN  -  SQUADRON  NUMBER  (I  TO  4). 

•  *■  •*  - 

.  L  ■'  j 

MAIL  -  AIRCRAFT  ’AIL  NUMBER. 

li.  •’  *• 

INC  NT  -  INDEX  VARIABLE. 

.11'. 

. 

UCN*  -  INDEX  VARIABLE. 

•  07/ 

“ 

NFUNC  -  FUNCTION  SPINS  ACCESSED. 

!  i»77 
•  •??< 

END  OF  GLOSSARY 

1270 

-  ^,•',1 
ii.CC 

>_ 

DETERMINE  WHICH  USER  FUNCTION  IS  BEING  ACCESSED  IN  TMS  SECTION 

«  *>ft  « 

•  tOi 

wn.-MC  =  HoruPNiis) 

1282 

- 

GO  TO  (2130.2200.2300! .NFJNC 

1284 

128! 

FlifiCT ION  U5ERF  (21) 

•.284 

t 

THIS  ROUTINE  PARK-  AIRCRA?'  DURING  THE  NORMAL  DAT  TIME  OPERATION 

1  »_b7 

r 

OF  THE  AIRFIELD.  IT  USES  ’h£  RU.E  OF  TRUNG  TO  PARK  AN  AIRCRAFT 

1288 

v 

IN  A  SHELTER  FIRST.  IP  ONE  ACT  AVAILABLE.  THEN  A  REVETMENT,  ELSE 

1289 

C 

IP  NOTHING  BETTER  IS  GCEN.  DISPERSED  IN  "HE  OPEN.  IP  THE  TO’A^ 

1290 

s 

NUMBER  C-  PARKING  SCOT’S  *$  EREti'EDf  A  WARNING  MtSSAut  i j  ~ R I N ■  ED • 

1291 

c 

1292 

ill  00 

NCNT  =  : 

1 29$ 

NSGDN  =  ATRIECI 

1291 

NTA:.  :  A'RitKJ 

1295 

c 

129c 

2118 

IF  (NPARK  (NSwDSiiNCMT » 1 ) ,E3.0)  GO  TO  i.128 

•  *•  *■! 

.i-  7  t 

V„NT  =  NCNT  ♦  1 

1298 

IF (NCNT .IE. 50)  GG  to  2ii0 

1299 

USERF  *-  99.0 

1300 

PRINT*, 1  AIRCRAFT  MNTAIL,'  HA'S  NO  PARKING  SPOT.-' 

1901 

RETURN 

1312 


ne 


13Z8 

IF(.jCNT.LE.Z)  GO  TO  2210 

1329 

•„ 

1330 

UiERF  -  0,0 

' 

*  V\  * 
iiOi 

PRINT*,'  AIRCRAFT  NTAIL,’  CAR  NOT  BE  LOCATED  IN  PARKING. !  i 

‘  3  *3 1 

RETURN 

j 

1333 

C 

1334 

2220  NPARK  < N33SN»NCNT , JCST)  =  0 

1 335 

UoERF  -  <?,# 

1:36 

* 

RETURN 

» 

i  j  1  / 

1  TO? 

i  JVV 

j; 

2  So  V 

"UNCTION  U^£RF(2b‘) 

r 

i  340 

C  THIS  ROUTINE  PARKS  THE  AIRCRAFT  ThAT  ARE  INITIALLY  BROKEN.  IT 

[-•  ■) 

1341 

C  PARKS  THEM  IN  REVERSE  PRIORITY  -  DISPERSED,  REVETTED, SHELTERED. 

r-  j 

13*2 

C  IF  NO  SPACE  IS  FOUND,  A  WARNING  MESSAGE  IS  PRINTED. 

M 

1343 

C 

■  i 

; 

u  t 

•  344 

2300  NCNT  =  50 

1345 

NSQDN  =  ATRIBi  ■ ) 

j 

•34  b 

NTAIl  --  ATRIE12) 

P<! 

1347 

n 

L> 

i 

1343 

2310  !F(NPARK(NSQDN,NCNT,1) .E3.0!  GO  TO  2320 

1349 

NCNT  =  NCNT  -  1 

► 

1350 

IF 1NCNT.NE.0)  GO  TO  2310 

,  '■ 

1.351 

■JSERF  =  99.0 

|>  i 

1553 

PRINT*, '  NO  PARKING  SPACE  AVAILABLE  FOR  AIRCRAFT  ’ , NTAIL 

L 

159 

. . -  - — — ■ 

RETURN 


1353 

<  -\r  it 
i  j  jt 

1355 

1354, 

1357 

1358 

1359 

1360 

1361 
136c 
1343 

1364 

1365 
;  366 

1-50/ 


C  ONCE  A  SPOT  IS  POUND.  THE  TYPE  CODE  MUST  BE  DETERMINED: 
C  1=SH£LTER.  2=REVETMENT .  3=DISPERSEB. 

2320  USERF  =  1.0 

IF tNCNT .GT .NTTPEINSODN. 11 )  USERF  =  2.0 
IF (NCNT .GT.NTYPE (NS3DN»2) )  USERF  =  3.0 
NPARKINSQDN.NCNT.li  =  NTAIL 
RETURN 
C 
C 

C  END  OF  SECTION  2.  PARKING. 
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SECTION  3.  EXAMINE  CODE  -  USERF131)  TO  USERF (39) 

HHHIH 


3000  CONTINUE 


GLOSSARY  OF  VARIABLES  USED  IN  THIS  SECTION. 

INTEGER  VALUE  VARIABLES: 

MAX  -  HAXIUM  LEVEL  FOUND. 

NDIV  -  VALUE  USED  IN  DECODING  MX  FAILURE  CODE. 
NCODE  -  MX  FAILURE  CODE  BEING  EXAMINED. 

NVAL  -  TEMPORARY  VALUE  STORAGE  LOCATION. 

NFUNC  -  USER  FUNCTION  BEING  SELECTED. 

END  OF  CuOSSARr. 


ThE  MX  FAILURE  CODE  IS  A  SIX  DIGIT  INTEGER.  EACH  DIGIT  REPRE¬ 
SENTING  7 HE  LEVEL  Or  FAILURE  (0-5.  0  BEING  NO  PROBLEM  tq 
5  BEING  A  SERIOUS  PROBlEM!.  THE  MOST  SIGNIFICANT'  DIGIT  OF 
THE  CODE  IS  FOR  SYSTEM  b  THE  LEAST  SIGNIFICANT  IS  SYSTEM  t. 
DETERMINE  WHICH  USER  FUNCTION  IS  BEING  ACCESSED. 

NFUNC  =  MOD(!FN.10! 

COTO(3i00. 3200.3300. 3400. 3500.3600.3700. 3800. 3900i.NFUNC 


FUNCTION  USERF (31) 

OBTAIN  LEVEL  OF  SYSTEM  ONE  (DIGIT  1  OP  MX  FAILURE  CODE!. 
NCODE  =  ATRIBtlS) 

USERF  :  MODINCODE. 10000001/100000 
RETURN 


C  FUNCTION  USERF (32 I 

3  OBTAIN  LEVEL  OF  SYSTEM  TWO  (DIGIT  2  OF  MX  FAILURE  CODE). 
3200  NCODE  =  A: RIB (18) 

USERF  =  MOB(NCODE>100000)/10000 
RETURN 


C  ~ UNCTION  USERF (33) 

C  OBTAIN  LEVEL  OF  SYSTEM  THREE  (DIGIT  3  OF  MX  FAILURE  CODE). 
3300  NCODE  =  ATRIEU8) 

USERF  =  MOD (NCODE. 10000)/ 1000 
RETURN 


I  FUNCTION  USERF (34 1 

I  OBTAIN  LEVEL  OF  SYSTEM  FOUR  (DIGIT  4  OF  MX  FAILURE  CODE), 
3400  NCODE  =  ATRIB(IB) 

USERF  =  MOD (NCODE. 1000)/ 100 


.  -  '.n— «w»  tt ik.. 


:  4  ;8 

RETURN 

1419 

c 

1423 

c 

1421 

c 

1422 

c 

FUNCTION  USERF(35I 

1423 

c 

OBTAIN  LEVEL  OF  SYSTEM  FIVE  (DIGIT  5  ( 

1424 

3500 

NCODE  --  ATRIBilS) 

1425 

USERF  =  NOE (NCODE. 1001/10 

1426 

RETURN 

1427 

c 

1428 

c 

1423 

6 

FUNCTION  USERF (361 

1430 

c 

OBTAIN  LEVEL  GF  STSTEH  SIX  (DIGIT  6  i 

1431 

3600 

NCODE  :  ATRIB (18) 

1432 

USERF  -  HDD (NCODEi 10) 

1433 

RETURN 

U‘11 

t4o* 

C 

1435 

c 

1436 

c 

FUNCTION  USERF (37 i 

«  d-^-r 
itO  0 

c 

ROUTINE  TO  DETERMINE  THE  MAXIUM  LEVEL 

1438 

3700 

MAX  =  0 

1439 

NDIV  -  1000300 

1448 

NCODE  =  ATRIB ( 18) 

1441 

C 

1442 

DO  3720  I  =  1.6 

1443 

NCODE  =  MOD(NCODE.NDIV) 

1444 

NDIV  =  NDIV/10 

1445 

N’VAl  :  NCODE/NDIV 

1 446 

IF (NVAL.GT. MAXIMAX  -  NVAL 

1447 

3720 

CONTINUE 

1448 

C 

1449 

USERF  =  MAX 

1450 

RE.ijRN 

1451 

t* 

1 452 

c 

1453 

c 

FUNCTION  USERF (38) 

1454 

l 

DETERMINE  A/C  PRIORITY  FOR  MX  (WG/HMT 

1455 

u 

THE  VALUES  GF  ALL  SYSTEMS  WITH  4  AND  ! 

1456 

u 

LOWEST  SUM  HAS  FIRST  PRIORITY. 

1457 

r 

1458 

3800 

NCODE  =  ATRIB ( 181 

1459 

NDIV  =  1000000 

1160 

NSUM  =  0 

1461 

DO  3820  I  --  1.6 

1462 

NCODE  =  MOD(NCODE.NDIV) 

1463 

NDIV  =  NDIV/10 

1464 

NVAl.  =  NCODE/NDIV 

1465 

IF (NVAL.GE.4)  NSUM  =  NSUM  +  NVAL 

1466 

38  £0 

CONTINUE 

1467 

USERF  =  NSUM 

.EAST  BROKE  FIRST. 


FUNCTION  USERFI39) 

DETERMINE  A/C  PRIORITY  FOR  SQ  MX  -  LEAST  BROKE  FIRST. 

THE  VALUES  OF  ALL  SYSTEMS  WITH  FAILURE  LEVELS  GREATER  THAN  OR 
EQUAL  TO  2  ARE  ADDED.  LOWEST  SUM  HAS  FIRST  PRIORITY. 

(900  NCODE  =  ATRIB { 16) 

NCI V  :  1000000 
NSUM  -  3 
DO  3923  I  *  1.4 

NCODE  -  MODI NCODE .NDI VI 
NO  IV  =  NDIV/10 
NVAL  =  NCQDE/NDIV 
IFINVAL.GE.2t  NSUM  =  NSUM  +  NVAL 
.923  CONTINUE 
USERF  :  NSUM 
RETURN 


END  OF  SECTION  3.  EXAMINE  CODE. 
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1495 

1496 

1497 

1498 

1499 
1506 
1501 
158t 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 
15;  8 

1519 

1520 
1321 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 


1339 

1540 

1541 

1542 

1543 

1544 


C  iHHIHI 

C  SECTION  4,  RESET  CODE  -  USERF(4i)  TO  USERF (47) 

C 

4000  CONTINUE 

C 

c  Glossary  of  variables  used  in  this  section. 

c 

C  INTEGER  VAlUE  VARIABLES 
C  NCODE  -  NY  FAILURE  CODE  BEING  EXAMINED. 

C  NVAL  -  TEMPORARY  VALUE  STORAGE  LOCATION. 

C  NFUNC  -  USER  FUNCTION  BEING  SELECTED 

C  NSUH  -  NEW  FAILURE  CODE  AFTER  RESETTING  ALL  LEVELS. 

C  NDIV  -  VALUE  USED  TO  DECODE  NX  FAILURE  CODE. 

C  END  OF  GLOSSARY. 

C  THE  NX  FAILURE  CODE  IS  A  SIX  DIGIT  INTEGER.  EACH  DIGIT  REPRE- 

C  SENT INC  THE  SERIOUSNESS  OF  ONE  OF  SIX  SYSTEMS.  THE  DIGIT 

C  CAN  TAKE  ON  THE  VALUE  OF  0  TO  5  (0  -  NO  FROBLEN.  5  -  HOST 

C  SERIOUS  FROBLEN I .  THE  HOST  SIGNIFICANT  DICIT  IS  FOR  SYSTEM 
C  1.  THE  LEAST  SIGNIFICANT  DIGIT  IS  FOR  SYSTEM  6. 

C 

C  DETERMINE  UHICh  USER  FUNCTION  IS  BEING  ACCESSED. 

NFUNC  =  HOO(IFN.10> 

GOTO(4100, 4200, 4300.4400. 4500. 4600. 4700), NFUNC 

C 

c 

C  FUNCTION  USERF141) 

C  ZERO  OUT  LEVEL  OF  SYSTEM  ONE  IN  MX  FAILURE  CODE,  UNLESS  IT  IS  ONE. 
4100  NCODE  =  ATRIB(IS) 

NVAL  =  NCODE/ 100000 

IFiNVAL.N'E. tlNVAL  -  0 

USERF  =  NVAL* 100000  +  MOD (NCODE, 100000! 

RETURN 


C 

C  rUNCTION  USERF (42! 

C  ZERO  OUT  LEVEL  OF  SYSTEM  2  IN  MX  FAILURE  CODE,  UNLESS  IT  IS  ONE. 
4200  NCODE  =  ATRIBU8! 

NVAL  =  MOO(NCODE,1 00000! /10000 
irnval.ne.unval  -  0 

USERF  =  (NCODE/ 100000* 10+NVAL! *10000  +  MODINCODE, 10000! 

RETURN 

C 

C  FUNCTION  USERF (43! 

C  ZERO  OUT  LEVEL  OF  SYSTEM  3  IN  MX  FAILURE  CODE,  UNLESS  IT  IS  ONE. 
4300  NCODE  =  ATR1BU8! 

NVAL  =  MOD (NCODE, 100001/1000 
IRNVAL.NE.UNVAL  =  0 

USERF  =  (NCODE/ 10000* 10+NVAL!* 1000  *  MOD(NCODE,1000! 
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RETURN 


15*5 

1546 

15*7 

15*3 

1549 

155# 

1551 

1552 

tw 

155* 

1555 

1556 

1557 

1558 

1559 
1 56# 
1561 
1582 
1563 
1584 

1565 

1566 

1567 

1568 

1569 
1578 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

.  CTO 

Ull 

156# 

1581 

1582 
1563 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 
1532 

1593 

1594 


C 

r 

L 

C  FUNCTION  IJSERF144) 

C  ZERO  OUT  LEVEL  OF  SYSTEM  4  IN  NX  FAILURE  CODE,  UNLESS  IT  IS  ONE. 
440#  NCODE  =  ATRIBU8) 

NVAL  =  *00 (NCODE, 1### 1/10# 

IF(NVAL.NE.L)NVAL  -  # 

USERF  =  ( NCODE / 1 ###* 1 0+N VAL ) ♦ 1 0#  +  NOD (NCODE, 100) 

RETURN 

w 

L 

:  FUNCTION  USERF! 45) 

C  ZERO  OUT  LEVEL  OF  SYSTEM  5  IN  NX  FAILURE  CODE,  UNLESS  IT  13  ONE. 
45##  NCODE  =  ATRISU8) 

NVAL  =  MOD (NCODE, 100) /l# 

IFINVAL  .NE.  DNVAl  =  0 

USERF  -  (NCODE/ 100*10+NVAU*10  >  MOO  (NCODE,  10) 

RETURN 

C 

C 

C  FUNCTION  USERF (46) 

C  ZERO  3UT  LEVEL  OF  SYSTEM  6  IN  MX  FAILURE  CODE,  UNLESS  IT  IS  ONE. 
4600  NCODE  =  ATRIB(18) 

NVAL  -  MODINCODE, 10) 

I F (NVAL . HE . 1 ) NVAL  -  0 
USERF  -  NCODE/ 10* !#  +  NVAL 
RETURN 

0 

C  FUNCTION  USERF (47) 

C  ZERO  OUT  LEVEL  OF  ALL  SYSTEMS  IN  MX  FAILURE  CODE,  UNLESS  IT  IS  1. 

4790  NCODE  =  ATRI8!18! 

NDIV  =  1000008 

NSUH  =  0 

c 

DC  4720  1=1,6 

NCODE  -  NOD (NCODE, NDIV) 

NDIV  =  NDIV/10 
NVAl  =  NCODE /NDIV 
IF ( NVAl. HE. 1) NVAL  -  0 
MSUM  =  NSUM*I0  +  NVAl 
4720  CONTINUE 

c 

USERF  =  NSUM 
RETURN 
C 
C 

C  END  OF  SECTION  4,  RESET  CODES 
C 
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1597 
1598 
'.599 
16  00 
1601 
1601 
1633 
1636 
1605 

1636 

1637 

1638 

1609 

1610 
1611 
16  1l 

1613 

1614 

1615 

1616 

1617 

1618 
1619 
1670 
162: 
1622 

1623 

1624 

1625 

1626 
167? 
2628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 
lo4l 

1642 

1643 

1644 

1645 

1646 


C  SECTION  5.  ALTER  CODE  -  USERF (5 1 )  TO  USERF (531 

C  IHKHH 

5000  CONTINUE 

C 

C  GLOSSARY  OF  VARIABLES  USED  IN  THIS  SECTION. 

C  CGMM0N/UC0N5/SYS16.4) tSYSTOL (85 .MTBF(6! .ALP<6) .BET (6! »NBATREP(5) . 

C  i  ERUNNIN.ERUNMAX 

C 

C  SEAL  VAnlE  VARIABLES: 

C  SYS  -  CUMULATIVE  PROBABILITIES  TO  DETERMINE  lEVEL  OF  MX 

C  FAILURE  FOR  SYSTEM  1  YhRU  6 

C  INDEX  1  -  SYSTEM  NUMBER 

C  NEATREP  CODES  ARE  SET  IN  INTLC.  THEY  INDICATE  THE  APPROXIMATE 
C  lEVEL  OF  DAMAGE  EACH  SYSTEM  WOUlD  HAVE  "OR  A  GIVEN  LEVEL  CF 

C  B AT T ,_t-  DAMAGE.  WITH  "HcSt  vAlUEs.  THE  ROUTINE  TAKES  THE 

l  GREATER  OF  T'.E  TWO  NUMBtRv  (MX  A I  LURE  lEVEL.  NBATREP  LEVEl) 

C  FOR  EACH  SYSTEM  (1-4)  AND  CREA  E3  A  NEW  MX  FAILURE  CODE. 

C  INDEX  2  -  lEVEl  OF  RESAIR  1  TO  4  (CUM.  OF  5  IS  1.00) 

C  SYSTOL-  TOLERANCE  WHICH  AllOWS  MX  FAILURES  TO  OCCUR  DURING 

C  PILOT  FREFLICHT!  IF  3,  IGNORE  THAT  SYS'EM. 

C  TOPER  -  A/C  TOTAl  MINUTES  OF  OPERATION  (ENGINE  RUNNING). 

C  X  -  TEMPORARY  STORAGE  OF  RANDOM  DRAW. 

C  MTBF  -  MEAN  TIME  BETWEEN  FAILURE. 

C  INTEGER  VAlUE  VARIABLES: 

C  YSCODE  -  TEMPORARY  VALUE  OF  MX  FAILURE  CODE. 

C  NO IV  -  USED  TO  DECODE  FAILURE  CODE. 

C  WAL  -  SINGLE  DIG!"  OF  MX  CODE  BEING  TESTED. 

C  NEW  -  NEW  DIGI"  (LEVEL  OF  FAILURE  FOR  SYSTEM  I). 

C  NSUM  -  MEW  MX  Ffil-JjRE  CODE, 

r 

C  END  OF  GLOSSARY. 

C  THE  MX  FAILURE  CODE  IS  A  SIX  DIGIT  INTEGER.  EACH  DIGIT  REPRE- 
C  SENTING  THE  SERIOUSNESS  CF  ONE  OF  SIX  SYSTEMS.  THE  DIGIT 
CAN  TAKE  ON  THE  VALUE  OF  0  TO  5  (0  -  NO  PROBLEM.  5  -  MOST 
C  SERIOUS  PROBLEM).  THE  MOST  SIGNIFICANT  DIGIT  IS  FOR  SYSTEM 
C  1,  THE  LEAST  SIGNIFICANT  DIGIT  IS  FOR  SYSTEM  6. 

C  DETERMINE  WHICH  USER  FUNCTION  IS  BEING  ACCESSED  IN  THIS  SECTION 
NFUNC  =  MODilFN, 10) 

GO  TO  (5100.5200.5300) .NFUNC 
C 

FUNCTION  USERF (51) 

C  THIS  ROUTINE  DETERMINES  IF  A  SYSTEM  FAILED  BY  COMPARING  CURRENT 
C  A/C  TOrAL  OPERATING  "ME  TO  NEXT  TIME  OF  FAIlURE  (NTOF)  FOR  THAT 
C  SYSTEM.  IF  A  SYSTEM  FAILS.  THE  LEVEL  IS  DETERMINED  STOCHASTICALLY 

C  THE  GREATER  OF  THE  NEW  AND  OLD  LEVELS  FOR  A  PARTICULAR  SYSTEM  IS 

c  Always  chosen. 
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1647 

c 

1648 

5180  NCODE  --  ATR IE  (185 

1649 

TOPER  -  ATRIB17) 

1654 

NDIV  -  1000000 

1651 

NSUM  =  0 

1652 

NSML  -  0 

1453 

ME IG  =  0 

1454 

c 

1455 

DO  5110  I  -  1,6 

1654 

NCODE  -  NODiNCODE.NDIV) 

1457 

NDIV  --  NDIV/10 

1458 

NVAL  =  NCODE/NDIV 

.659 

c 

SYSTEMS  ARE  ONLY  ALLOWED  TO  BREAK  ONCE.  THE  LEVEL  IS  THEN 

1464 

r 

L 

until  the  NTOF  IS  RESET  (MOST  OF  THE  TIME  AFTER  MI), 

1661 

C 

1642 

IFlNVAL.LE.llTHEN 

1463 

NSNL  =  NSML  +  1 

1644 

IF (TOPER.GE . ATRIBl 13+I ) )  THEN 

1445 

c 

IF  A/C  ENCINE  TOTAL  OPERATING  TIME.  TOPER.  iS  GREATER 

1666 

c 

THAN  OR  EQUAL  TO  THE  NTOF  FOR  ANT  SYSTEM,  A  FAILURE 

1467 

c 

LEVEL  IS  SET. 

1668 

7  =  GRAND (Si 

1469 

NVAl  =  5 

1470 

IF < X .LE . SYS  1 1 ,45 )  NVAL  -  4 

1471 

IF (X .LE. SYS ( 1 1‘3> )  NVAL  -  3 

14  7k 

IF ( X . LE .SYS ( 1 ,2J 5  NVAL  =  2 

1673 

IFSX.LE.SYS(Itl) >  NVAL  =  1 

1474 

c 

IF  THE  LEVEl  IS  1,  THE  NTOF  IS  RESET  TO 

1675 

c 

AllOU  THAT  SYSTEM  TO  BREAK  AGAIN,  SINCE 

1674 

LEVEL  1  PROBLEMS  ARE  NOT  FIXED  BT  MI. 

1677 

IF(NVAL.E8.1)THEN 

1678 

ATRIBC8+1)=ATRIB<7>  + 

1679 

l  ( 1+BET  ( I )  /  ALP  ( I ) )  -»MTBF  ( 1 5  *BETA ( ALP ( I i >  EET ( I > . 2 ) 

1880 

ElSE 

1681 

NEiG  *  NBIG  +  1 

1482 

ENDIr 

1883 

END  IF 

1484 

END  IF 

1685 

1486 

NSOM  =  NSUM»10  +  NVAL 

1487 

5110 

CONTINUE 

1488 

p 

1689 

c 

COUNT  THE  NUMBER  06  A/C  THAT  HAVE  BROKEN  SINCE  THEM  WERE  LAS' 

1490 

c 

IN  MAINTENANCE. 

1691 

IF(NSNL.Ea.6.AND. NBIG. GT. 0)11(1001  =  IX(100I  +  1 

1692 

L 

1693 

iJSERF  =  NSUM 

1694 

RETURN 

1695 

c 

1496 

c 
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1697 

1498 

1499 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

171 1 

1712 

1713 

1714 

1715 

1716 

1717 

1718 
171? 

1720 

1721 
'722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 


C  ►UNCTION  83888(52) 

C  THIS  ROUTINE  ALTERS  THE  NEXT  TINE  OF  FAILURE  (NTOF)  TO  CURRENT  TOTAL 
C  OPERATING  MINUTES  IF  THE  DIFFERENCE  BETWEEN  THEM  FOR  SYSTEM  I  IS  .LE. 

C  SISTOLd)  MINUTES.  USED  TO  CAUSE  A  PREFLIC-WT  MX  FAILURE. 

C 

5200  TOPER  =  ATR!E(7! 

BO  5210  I  1.4 

IF ( ATRIB ( 18+ I )  -  TOPER. LE.SYSTOL(I) )  ATRIB(18+I)  =  TOPER 
5210  CONTINUE 

USERF  =  ATRIB (18) 

RETURN 

C 

C 

C  ►UNCTION  USERF (53) 

C  THIS  ROUTINE  COMBINES  THE  MX  FAILURE  CODE  WITH  THE  BATTLE  DAMAGE 
C  CODE  TO  INSURE  MX  IS  PERFORMED  ON  BATTLE  DAMAGE.  ALSO  DETERMINES 
C  IF  AN  A/C  IS  REPAIRABLE  OR  JUNK (999999! . 

C 

C  NO  IS  THE  BATTLE  DAMAGE  LEVEL  WHICH  IS  SET  IN  MISSION  ROUTINE. 

C  USERF  v 15) . 

5300  NC  =  ATR1BU4! 

C 

I F  (NBATREP ( NC  > . E8 . 999999 !  THEN 
C  h/C  IS  BEYOND  REPAIn 

ATRIB (18)  =  999999.0 
ELSE 

C  KOOirr  MX  cone  TO  incorporate  the  battle  DAMAGE  CODE 

NSUM  =  0 

NDIV  =  1000000 

NCOBE=  ATRIB ( 18) 

NETL  --  NBATREP  (NO 


DO  5320  I  =  1*6 

NCQDE  =  MOD(NCODE.NDIV) 

NBTL  =  MOD(NBTL.NDIV) 

NDIV  =  NDIV/ 10 
NVAL  =  NC ODE /NDIV 

IF ( NBTL/NBI V ,CT .NVftL !  NVAc  =  NBTL/NDIV 
NSUM  =  NSUM* 10  +  NVAL 
5320  CONTINUE 

ATRIB (16)  =  NSUM 
ENOIF 

USERF  =  ATRIB  < 18) 

L 

RETURN 

C 

C  END  OF  SECTION  5,  ALTER  CODE. 

0 

c 
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1749 

HIOHH 

1750 

L 

SECTION  &t  TRAVEL  TIME  -  USERF(M)  TO  USERF (67) 

1751 

C 

1752 

6000  CONTINUE 

■  75- 

*  t  Jw 

c 

■cf 

ir> 

r~~ 

c 

GLOSSARY  OF  VARIABLES  USED  IN  THIS  SECTION 

1755 

c 

CQMMON/DIST (13. 13! iT0Wl3)  t TAX  1(3)  tCREWOl 

1756 

c 

1757 

c 

REAt  VALUE  VARIABLES: 

1 758 

c 

BIST  -  THE  DISTANCE  FROM  POINT  I  (INDEX  1)  TO  POINT  0  (INDEX 

175? 

c 

TON  -  THE  lONER  BOUND.  NODE.  AND  UPPER  BOUND  TRAVEL  RATE. 

'.760 

c 

TAXI  -  THE  LONER  BOUND.  NODE.  AND  UPPER  BOUND  TRAVEL  RATE. 

1761 

l 

CREW  -  THE  LONER  BOUND.  NODE.  AND  UPPER  BOUND  TRAVEL  RATE. 

1762 

l 

BIST  -  MATRIX  OF  DISTANCES  BETWEEN  POINTS  ON  THE  FIELD. 

1763 

L 

1764 

c 

.NTEGER  VAcUE  VARIABLE^: 

1765 

c 

I  -  POINT  ON  FIELD  FROM 

1766 

c 

-j  -  POINT  ON  FIELD  TC 

1767 

c 

1768 

•J 

END  OF  GLOSSARY 

1769 

1770 

"l 

L- 

.  -r* » 
i  i  l  X 

c 

DETERMINE  FUNCTION  BEING  ACCESSED. 

1772 

NFUNC  =  MODdFNi  101 

1773 

GO  ; 0(6100 i 6208. 63001 o403 .6533 . 6600.6700) .NFUNC 

<7TI 

.  /  /  * 

p 

FUNCTION  JSERF(61) 

1775 

c 

ROUTINE  TO  DETERMINE  TAXI  TIME  FROM  POINT  I.  ATRlEilSi  TO 

1776 

c 

SQUADRON  ...  ATRIB(l) 

1777 

1773 

6100 

I  =  IFI X (ATRI5 (13) ) 

1779 

=  IFIX(ATRIEil)) 

1780 

USER"  *  DISTil.-j)  i  TRIAGlTAXI  (1 !  .TAXI  :2)  .TAXI  (3)  .3) 

1781 

RETURN 

«  TO? 

i  /  Ot 

L 

1733 

c 

1784 

p 

FUNCTION  0SERF(62! 

1785 

c 

ROUTINE  TO  DETERMINE  TAXI  TIME  FROM  POINT  I,  ATRIE(13!  TO 

1736 

V 

WINC  AREA.  CODE  9. 

1787 

c 

1788 

6230 

I  z  IF I X ( ATRIE ( 13! ) 

1789 

■j  =  9 

1790 

USERF  5  OIST(It.j)  /  TRIAG.TAXI  (1)  .TAXI  (2)  i‘AXI  (3)  .31 

1791 

RETURN 

1792 

p 

1793 

p 

1794 

c 

FUNCTION  USERF (63! 

1795 

c 

DETERMINE  TAXI  TIME  FROM  SQDN  I,  ATRIBI13)  TO  ARMING  AREA.  CODE 

1796 

c 

1797 

6300 

I  =  IFI X ( ATRIE { 13) ) 

1798 

■J  --  7 

17i 


1799 

USER?  -  DIS'i'IijI  /  7*iA<fiTA«lU>.7ftl 

183# 

RETURN 

.801 

r 

1802 

i. 

1883 

c 

FUNCTION  USERF (64) 

1884 

l 

DETERMINE  TAXI  TINE  FROM  HOTPIT  TO  PP’N 

T  J »  A~R  I  o  ( 1 : )  . 

1883 

c 

:m 

6408 

I  *  11 

1307 

J  =  IFIXtfiTRIEtlS; ) 

■808 

USERF  =  DISTC.J)  /  TRI4G(TAX. (1) » T A X I  ( 

2)  ?  T AX  1  {  '31  »  :  1 

1809 

RETURN 

1813 

C 

1811 

V 

'  ^  ? 

? 

FUNCTION  '.’SERF (65 i 

to  lj 

c 

D£TER“INt  TOti  rINt  FRGN  fijiNT  It  ATRIt! 

t-3 J  10  -i  A  Kk. 

i  *  •  * 

;  r.  ;  •* 

c 

1815 

6500 

I  =  IFIX(ATRtE(;3li 

i  8 1  k 

,  ;  IFIXtATRIEil; ! 

■817 

USER'  ;  DISTiltJ  7  RIACiTONUji  tOWfZi 

»  T  sj  w  \  2  i  i  :  . 

1818 

RETURN 

1818 

v 

<320 

£ 

1821 

C 

function  userp‘36) 

1 322 

c 

DETERMINE  TON  TINE  FROM  POINT  I.ATRIBU 

3)*  "0  iJING  AREA?  0; 

1823 

c 

1324 

6600 

I  =  !FIX(ATR!E!!3!i 

4 

i  Oi.w 

J  :  9 

1826 

USERF  s  DISTlitj!  /  TRIAClTON(l!i'ON(2) 

?TOW 1 3 ;  ?3l 

1827 

RETURN 

1828 

u 

1329 

C 

1830 

r 

FUNCTION  ":ERF (671 

1831 

V 

iRtw  TRAVEl  i ;N£  FRON  POINT  «TRIB(13 

:•  TO  SQON  Of  ATRIBC 

1832 

c 

1333 

8700 

1  =  IF  I X iATRIElli) ! 

1831 

--  IFIXlA'RIBim 

. 

i  0 

USERF  :  CISTdi.j)  i  TRIAD iCREiii  1 ! tCREN' 

i)  »CR£W  '*•:)  ?$} 

1 836 

RtT-JRN 

1837 

C 

1338 

C 

1839 

‘v 

END  OF  SECTION  6<  7RAVEL  "HE, 

1840 

- 

i  6*f  * 

1S4.C 

17: 


c 


1844 

1845 

1846 
1817 
1848 
1'849 
1858 

1 85 1 

1852 
1858 
1854 


C  SECTION  7,  TURNAROUND  -  USERF(71)  TO  U3ERFI78) 

C  ♦  ♦«««*♦ 

7008  CONTINUE 

L 

D  GLOSSARY  OF  VARIABLES  USED  IN  THIS  SECTION 
C  COMMON/ UC0M7 /NOCENT  (3) » NON  I NG ( 3  >  > CPCENT >  CPH i NG  >  CPI NTR  > 

C  fcGBRATE . CNDINAX .PEflLEFT (3)  iRtFRATCS)  lUPTINEiDNTINti 

l  LDARMNOR 1 3 ?  iDARMHUL (3>  >DARMRUN(3)  i DARMEX P (31 > 

C  GRfiRMNuR  13) » RARMHUG (3J  * RARMG jN (3 )  iRARNEGNlSi 

„■  CCMMON/STATS/HAXCGNF (6)  >NACTTPE (6 >3) > NCSO 1600;  >M;NRQAl >H$NFl» i 

C 

C  REA1-  vAloE  vARIABt.ES! 


!  o5o 

c 

GNBTM  *  GROUND  RUNNING  .IMF  OF  A/C  :TNC£  LAST  RtFUE-.NG 

1857 

l 

A.RTM  -  AIR  RUNNING  TINE  JF  A/C  SINCE  LAST  RErUELiNL. 

1858 

c 

GMDRATE-  RATE  OF  FUEL  CONSUMPTION  ON  GROUND. 

1859 

c 

AIRRATE-  RATE  OF  FUEL  CONSUMPTION  IN  AIR. 

i860 

v 

POLUSEC-  POL  BURNED  SINCE  LAST  REFUELING. 

1861 

c 

CENTKCP-  CAPACITY  OF  EXTERNAL  CENTERLINE  TANK,S;. 

iSoi. 

c 

0GTKCAP-  CAPACITY  OF  EXTERNAL  KING  TANK;. 

1863 

r 

it 

CAP I NT  -  INTERNAL  CAPACITY  OF  TUEl  FOR  A/C, 

1864 

£ 

AUTRE*  -  AMOUNT  REMAINING. 

1865 

TOTVOl  •  Uj.AL  PCl  CAPAlI  v  Ur  A/C. 

1866 

c 

GNBMAX  -  MAX  GNB  TIME  NITHCUT  REFUELING. 

1367 

r 

UPSTATE  -  RATE  OF  UPLOADING  EXTERNAL  TANK': . 

1848 

L 

DNRflTE  -  SATE  OF  DONN-.CADiNG  EXTERNAL  ~AMKS . 

1869 

;v 

•RcONF  •  CURRENT  ft/C  CONFIGURATION 

1870 

r 

MSG  -  A/C  SQUADRON  NUMBER 

1871 

c 

MAXCONF-  CONFIGURATION  NUMBER  FOR  SQUADRON 

1872 

1873 

1374 

s 

NACTYPE-  #  OF  S/C  PER  SGDN  FES  CONFIGURATION 

t 

l 

1375 

c 

end  of  Glossary 

1376 

NFUNC  =  MODdFNt  I»i 

.377 

r 

Go  70  (7100 (7208 >73801 7400 >7500! 7600* 7 700 i >600 >  >NFUNC 

.  0  >  0 

1819 

L 

FUNCTION  USERF171) 

i860 

* 

DETERMINE  THE  FUEL  R£Q!D-‘  ATRIE(U) , GROUND  OPERATING  TIME! 

1681 

c 

ATRIEU51  >  AIR  OPERATING  TIME.  IF  ATR18U5)  EQUALS  0.  THEN 

1882 

c 

NO  AIR  TIME  OR  HOT  PIT  REFUELED 

1883 

u 

1881 

lw 

A/C  TANK  CONFIGURATION  (NCI 

1865 

‘  C-uL 

T 

/ 

.00  NC  --  ATRIBU2) 

LtlOto 

1367 

IF(ATRIE.15> .NE.0.0)  THEN 

.386 

THE  A/C  HAS  AIR  TIME  ON  IT  SINCE  THE  LAST  REFUELING. 

1869 

AMTLEFT =  CPINTR*TRIAG(PERLEFT(1 1 iPERLEFT (21 >PERLEFT (3) >3 

1890 

1691 

1892 

AHTLEFT=  AMTLEFT  -  ATR!E(14)*GDRATE 

IF {AMTLEFT.LT ,8.01  AMTLEFT  =  0.0 

IF!NC.GT.0)  THEN 

178 


b 


1 393 

1894 

1895 
1898 

1897 

1898 

1899 
190# 

1901 

1902 


TOTVOL  =  CPINTR  +  NOCENT (NC ) *CPCEMT  +  N0W1 NG (MCI *CPWI HG 
ELSE 

TOTVOL  =  CPINTR 
ENDIF 

AHTREii  ;  TOTVOL  -  AHTLEFT 

ElSEIF(ATRIB(141 .ce.gnbmaxi  then 
IF<NC.GT.0!  then 

TOTVOL  =  CPINTR  +  NOCENT  (NCXCPCENT  +  NOWINGlNCUCfvING 
ELSE 

TOTVOL  =  CPINTR 


1904 

1905 
1908 

1907 

1908 

1909 

1910 
i  91 1 
1912 
1918 

1914 

1915 
1914 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 
1924 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 
1934 

193 7 

1938 

1939 

1940 

1941 

1942 


ENDIF 

AHT  >jSE  D =  ATRIE114)  *CDRATE 

;F( ANToSED.GT. ; 0. VOl!  AHTybED  -  TOiVGc 

AUTREi-  TOTVOL  -  AftTUSED 


ELSE 

AHTREu  =0.0 
ENDIF 


AHTREQ  =  AHTREQ*0. 000720443 
LSERr  :  ANTREVi 


RETURN 


C  FUNCTION  USERF ( 72 i 

C  RECALCULATE  FUEL  REQUIRED  DUE  TO  TANK  RECONFIGURATION.  ATRIB(S) 
C  HAS  NEW  CONFIGURATION.  WHILE  ATRIBU21  HAS  OLD  CONFIGURATION, 

C 

7200  NC  --  ATRIBIS! 

CPNEW  =  CPINTR  +  NOCENTINCHCPCENT  +  NOWINGiNCUCPWING 
C 

NC  :  ATRIB112) 

C 

IF (NC.CT.0)  THEN 

CPOLD  =  CPINTR  +  NOCENTINCHCPCENT  ■.  NOWINGINCUCPUING 
ELSE 

CPOLD  =  CPINTR 
ENDIF 
C 

IFiCPQLD.LT. CPNEW)  THEN 

USERF  =  ATRIE(15!  +  (CPNEW  -  CPOlD) *0.0007204t3 
ELSEIP(CPOLD.GT. CPNEW!  THEN 

4HTREQ  =  ATRIBdS!  -  (CPOiD  -  CPNEWH0. 000720443 
IF(AHTREfi.LT.0,0!  ANTREQ  =  0.0 
USERF  =  ANTREQ 
ELSE 

USERF  --  ATRIBdS! 


t 
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;?43 

:?44 

1945 

1944 

1947 

1948 
i  949 

1950 

1951 

1952 

1953 

1954 

1955 
1954 

1957 

1 958 

1959 
1943 

1941 

1942 

1943 

1944 

1945 


END  IF 
C 

RETURN 


C  FUNCTION  USERF (73i 

C  RECONFIGURATION  REQUIREMENT 

C  NACTYPEiNSQ,;)  -  t  OF  A/C  OF  CONFIGURATION  1  IN  SQUADRON  NSQ. 

C  NACTYPEINSQ.2)  -  i  OF  A/C  OF  CONFIGURATION  2  IN  SQUADRON  NSQ. 

C  NACTYPE(NSQ.3i  -  4  OF  A/C  OF  CONFIGURATION  3  IN  SQUADRON  NSQ. 

C 

7300  NSQ  =  ATRIDill 


C  IF  A/C  IS  REFUELED  AND  READ!  TO  GO  THEN  THE  A/C  IS 
C  NOT  RECONFIGURED  UNLESS  IT  HAS  LESS  TANKS  THAN  ITS 
C  SQUADRON  REQUIRES  FOR  MAXCONF (NSQI . 

C 

IF SATRIBU5)  .tQ.0.0.AND.ATHIB(14)  .IT.GNOHAX)  THEN 
IF ( ATRIB ( 12 ! .Ct.HAXCONF (NSQ) ! THEN 
UStRF  -  A7RIB!12i 


1944 
194  7 
1 9  4  o 
194? 

1970 

1971 

1972 

1973 

1974 

1975 
1974 

1977 

1978 

1979 

1 980 

1981 

1982 

1983 

1984 

1985 
1984 

1987 

1988 

1989 

1990 
199! 
1992 


NC  =  ATRIB!  12) 

ELSE 

USERF  =  MAXCONF (NSQ! 

NC  =  MAXCONF (NSQ) 

ENDIF 

NAC'TRE (NSQiNC)  =  NACTTPE(NSQ.NC)  +  1 
C  ELSE.  THE  ROUTINE  CHECKS  TO  SEE  IF  ALL  ODD  BALL  CONFIGURATIONS 

C  ARE  HATCHED.  THEN  IT  IS  ALLOWED  TO  RECONFIGURE  TO  THE  SPECIFIED 

C  CONFIGURATION.  MAXCONF (NSQ) . 

El$£IF<MAXC0NF(NS3).EQ.l)  THEN 

C  HAXIUK  AluOWED  CONFIGURATION  FOR  THE  SQUADRON  IS  1,  UNLESS 

C  THERE  ARE  CONFIGURATION  2  AND/OR  3  A/C  ALREADT  IN  THE 

C  REACT  POOL  OF  SQUADRON  NSQ. 

C 

IFiNACTYPE(NSQ.3).tG.2l  THEN 
USERF  =3.0 

NACTTPE!NSQ»3)  =  NACTTPEINSQ.3)  +  1 
ELSEIF !NACTYPE(NSGi2) .EQ.2)  THEN 
USERF  •  2.0 

NACTYFEINSQ.t)  =  NACTYPEiNSQ.2)  +  I 
ELSE I F ( NACTY PE  1 NSQ . 3 ) . EQ . 1 )  THEN 
USERF  =  3.0 

NACTTF'E (NSQ.3)  =  NACTYPElNSQ.3)  ♦  1 
ELSEIF  (NACTYPEINSQ.2) .EQ.l)  THEN 
USERF  =  2.0 

NACTYPE (NSQ. 2)  =  NACTYPE(NSQ,2)  +  1 
ELSEIF (ATRIB (12) .EQ.l. OR. ATRIB (12) .EQ.2)  THEN 
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1993 

1994 

1995 

1996 

1997 

1998 
1«99 
2000 

2001 

'lilil'} 

LVVL 

2003 

2004 

2005 

2006 
2007 
6006 

2009 

2010 
2011 
2012 
20  i  3 

2014 

2015 
2014 
2017 
2013 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 
2027 
6068 
2029 
2060 

2031 

2032 
2833 

2034 

2035 

2036 
6037 

2038 

2039 

2040 

2041 

2042 


USERF  =  ATRIBdi) 

NACTYPE<NSQ»1FIX(ATRIB(12)  )>  =NftCTYPE(NSQ»IFIXtftTRIBU2)  > )  + 
ELSE 

USERF  =1.0 

NACTTPEtNSfl.ll  =  NACTTPt(NSG.i)  +  1 
ENDIF 

C 

ELSEIF (MAXCONF \8iSQ)  .EQ.21  THEN 
C  MAX  SPECIFIED  CONFIGURATION  FOR  SQUADRON  NSQ  IS  2. 

r 

IF!NACTTPE(NSQ»3).EQ.2!  THEN 
USERF  =  3.0 

NAC7TPE(N$G>3!  =  NAC7TPEINSQ.3)  +  1 
ELSE  IF (NACTTPE  INSQi 1 ) .Efl . 2)  THEN 
USERF  =1.8 

NACTYPE (MSQ » 1 )  =  NACTTPEINSQ.il  +  1 
ELSE  IF (NACTYPE (NSQ. 31.EQ.il  THEN 
USERF  =  3.0 

NACTY?E(NSQ.3>  =  NAC7YPE(N$Q.3)  +  1 
ELSE I F ( NACTYPE INSG . 1 S . EQ . 1 1  THEN 
USERF  =1.0 

NACTYPEINSQ.ll  =  NACTYPEINSG, 11  +  1 
ELSE 

USERF  =2.0 

NACTYPE (MSQ»  21  =  NACTYPE (NSQ. 2)  +  1 
END  IF 

C 

ELSE 

C  MAX  SPECIFIED  CONFIGURATION  FOR  SQUADRON  NSQ  IS  3. 

r 

w 

IF (NACTTPE (NSQ . 2) .EQ.2)  THEN 
USERF  =2.0 

NAC7YPE(N$Qt2)  =  NACTTPE (NSQ. 2)  +  1 
ELSE  IF (NACTTPE (NSQ  r 1 1 . EQ . 21  THEN 
USERF  =1.0 

NACTYPEINSG. 1)  =  NACTTPEINSQ.ll  +  1 
ELSE  IF (NACTTPE (NSQ. 2) .EQ.l!  THEN 
USERF  =  2,0 

NACTTPE (NSQ » 2)  =  NACTTPEfNSQ.2!  +  1 
ELSE I F ( NACTYPE !NS3>l).EQ.i!  THEN 
USERF  =1.0 

NACTTPEINSQ.ll  =  NACTTPEiNSQ.il  +  1 
ELSE 

USERF  =3.0 

NACTTPEINS8.3;  =  NACTTPEINSQ.31  *  1 
ENDIF 
ENDIF 

C 


C 


RETURN 


2043 

c 

2044 

c 

FUNCTION  USERF (74) 

2045 

c 

DETERMINE  LENGTH  OF  TIKE  REQUIRED  TO  ALTER  CONFIGURATION. 

2048 

7400  NC  =  ftTRIElS! 

2047 

C 

CALCULATE  THE  NUN8ER  OF  TANKS  THE  A/C  HAD. 

2048 

NEWTKS  =  NOCENT (NCI  +  NOWING(NC) 

2049 

c 

2050 

c 

CALCULATE  THE  NUMBER  OF  NEW  TANKS  DESIRED. 

2051 

NC  --  ATRIBdZI 

2052 

IF 1NC.EQ.0)  THEN 

2053 

NODTKS  =  0 

2054 

ELSE 

2055 

NODTKS  =  NOCENT INC)  +  NOWINCtNC! 

2058 

END  IF 

2057 

c 

2058 

l 

DETERMINE  THE  TIKE  REQUIRED  TO  ALTER  THE  CONFIGURATION. 

2059 

IF (NEWTKS.GT. NODTKS!  THEN 

2080 

USERF  =  (NEWTKS  -  NODTKSUUPTIKE 

2081 

ELSE 

2082 

USERF  =  (NODTKS  -  NEUTKSHBNTIKE 

2083 

END  IF 

2084 

t 

2085 

RETURN 

2088 

c 

2087 

c 

2088 

'w 

2089 

c 

2070 

c 

FUNCTION  USERF <757 

207! 

c 

ROUTINE  TO  DETERMINE  DEARK  SERVICE  TIKE  (CONSIDERS  WEAPON 

2072 

{* 

L 

THE  TIKE  IS  THE  SUK  OF  THE  GUN  SERVICING  TIKE  AND  BOMB 

2073 

c 

SERVICING  TIKE. 

2074 

c 

2075 

7500 

IFiATRIB<!0).LE.l>  THEN 

2078 

XBOME  =  TRIAG(DARKN0R(UiDARKN0R(2)  iDARHN0R(3)  i3! 

2077 

ELSE 

2078 

XEOKE  =  TRIAG(DARHHUGU)  iDARKHUG(Z) » DARMHUG (3 >  1 31 

2079 

ENDIF 

2080 

L- 

2081 

IF(ATRIE(9! .LE.l!  THEN 

2082 

XGUN  =  0.0 

£.88  j 

ELSEIF(ATRIB(9).EQ.)  THEN 

2084 

XGUN  =  TR I AC ( DARhftUN !  1 ) i DARHRUN ( 2 ) i DARKRUN ( 3) 1 3 ) 

2085 

ELSE 

2088 

XGUN  =  TRIAGfDARKEXP  11) »DARKEXP(2i ?  DARMEXP (3 ) to) 

2087 

ENDIF 

2088 

c 

2089 

USERF  --  XBOKB  +  XGUN 

2090 

c 

2091 

RETURN 

2092 

c 
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2093 

2094 

2395 

2094 

2397 

2098 

2099 
2103 
2101 
2102 

2103 

2104 

2105 

2106 
11107 
2108 
2109 

Ll  IB 
2111 
2112 
21.2 

2114 

21 15 

2116 

2117 

2118 
2119 
2123 
2121 
2122 
21l3 
212* 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 
1 1 

Ll JO 

2134 

■"  <  “*C 

L  iO-3 

L 186 

2137 

2138 

2139 

2140 

2141 

2142 


C  FUNCTION  USERF (761 

C  DETERMINE  TINE  TC  REARM  A/C. VARIES  ACCORDING  TO  WEAPON  STATUS. 
C  THE  TIME  IS  THE  SUN  OF  EONB  LOADING  TINE.  GUN  LOADING  TINE. 

C  AND  TINE  TO  FIX  ANT  PROPLENS.  IF  THE  A/C  DOES  NOT  REQUIRE 

C  ANT  SERVICE  FOR  ONE  OF  THE  ABOVE.  THE  TINE  FOR  THAT  ELENENT 

C  IS  ZERO. 

C 

7600  IFiATRIB(10) .EQ.ll  THEN 
XBONB  =  0.0 
ELSE 

XBONB  =  TRIAD (RARNNOR 11 i .RARHNORlti .RARNNOR(3i .3) 

ENDIF 

IFiATRIEI?) .EQ.l)  THEN 
XGUN  =  0.0 
ElSE 

XGUN  -  TR I  AG  ( RARNC'JN  (It.  RARNCUN  ( 2 ! .  R  ARNGUN  (31.3) 

ENDIF 

;F(ATRiB(91 .GE.2)  THEN 

XPROB  =  TRIAD! RARMBCN ill. RARNBCN 1 2 ! . RARNBGN ! 3 ) .3 ! 

ELSEIF (ATRIB! 10) .tfi.2)  THEN 

XPROB  =  TRIAGifiARNHUGi 1 ) , RARMriUC (2 ) .RARNHUG (31.3) 

ELSE 

XPROE  =  0.0 
ENDIF 

C 

ATRIB!?!  =  1.0 
ATRIB  X 10) =  1.0 
USER?  =  XBCNB  +  XGUN  +  XDRCB 
RETURN 
C 
C 

C  FUNCTION  USERF (77) 

C  DETERMINE  IF  A/C  ALLOWED  TO  HOT  PIT 

C  FUNCTION  OF  A/C  LOCATION.  SQUADRON  NUMBER.  AND  CONFIGURATION. 

C  AVAILAEILITT  OF  HOTPIT  RESOURCES  IS  ON'J  CONSIDERED  AFTER 
C  THE  A/C  GETS  TO  THE  HOTPIT. 

7700  USERF  =0.0 

C 

NS8  =  NCSQ1IFIX (ATRIE(Z) ) ) 

IF (ATRIB (3) .NE.l. AND. ATRIB (12! .LE.NAXCONF (NSQ) .AND. 

+  N!JNRES!40)  .GT.0.AND. 

+  (ATRIB! 1) .LE.3.AND.ATRIB(13! .EQ.7.0R, 

+  ATRIB U ) .GT. 3. AND. ATRIB (13) .EQ.10))  USERF  =  1.0 
C 

RETURN 

C 

C 
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2143 

2144 

2145 
2144 

2147 

2148 

2149 
2151 

2151 

2152 


C  FUNCTION  USERFI78) 

C  DETERMNE  TINE  REQ’D  TO  REFUEL 
C 

7810  USERF  = 1ATRIB ( 15)  *  1388.0) /TRIAG1REFRAT 11) tREFRAT (2) iREFRflT (3) >3! 
RETURN 


C 

C 

C  END  OF  SECTION  7.  TURNAROUND. 

C 

c 

c 
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2154 

C 

#**44**** 

2155 

C 

SECTION  8.  WING  SERVICE  -  USERF (81)  TO  USERF (841 

2154 

c 

********* 

2157 

8000 

CONTINUE 

2158 

C 

2159 

C 

WING  SERVICE  FIXES  LEVEL  4  AND  LEVEL  5  PROBLEMS.  IT 

2148 

C 

ASSUMES  THAT  THE  LEVELS  AND  LEVEL  2  PROBLEMS  ARE 

2141 

c 

FIXED  CONCURENTLY  WITHOUT  ADDITIONAL  TIME  BEING  REG' D 

2142 

c 

OR  ADDITIONAL  RESOURCES. 

2143 

c 

GLOSSARY  OF  VARIABLES: 

2144 

c 

C0MM0N/UC0M8/MIN1 (51 iMODEl (5) .MAXI (51 .MIN2<5) »MODE2<5) .MAX2(5i 

2145 

c 

HIN3(5) » M0DE3 (5 ) .KAX3(5) ,HIN4<5) .MGDE4I5) .MAX4(5) 

2144 

e 

MIN5(5).M0D£5(5).MAX5(51.MlN4i5I.MO0E4(5!.MAX4(5l 

2147 

c 

W$H1INT(3),WSH3!NT(3) 

2148 

r- 

l 

2149 

c 

2170 

c 

THE  SERVICE  TIMES  ARE  A  FUNCTION  OF  WHETHER  OR  NOT  TWO  ACTIV- 

2171 

c 

TIES  ARE  GOING  ON  AT  ONCE.  IF  SO.  THE  TIME  IS  THE  MAXIMUM 

2172 

c 

TIME  OF  THE  TWO  PLUS  AN  INTERFERENCE  TIME  BECAUSE  OF  THE  CON¬ 

2173 

c 

CURRENT  ACTIVITIES.  IF  NOT.  THE  TIME  IS  THE  LENGTH  OF  TIME 

2171 

c 

c 

REQUIRED  TO  FIX  THE  ONE  PROBLEM. 

L  i  /  0 

2174 

NFUNC  =  MODdFN,  10! 

2177 

CO  TO  (8100. 8200. 8300. 8400), NFUNC 

2178 

L 

2179 

c 

2180 

c 

2181 

c 

FUNCTION  USERF (81) 

2182 

c 

SERVICE  TIME  OF  SHOP  ONE. 

-■>  *  fl 

L  A  CO 

c 

2181 

8100 

NCODE  =  ATRI8U8! 

2185 

LEVSYS3  =  MOD (NCODE, 100001/1000 

2184 

LEVSYS4  =  MOD (NCODE. 10001/100 

2187 

c 

2188 

IFfLEVSTS3.CE. 4)  THEN 

2189 

F3  =  TRIAG(MIN3(LEVSrS3),M0DE3(LEVSTS31,MAX3(LEVSTS3l.3! 

2190 

ELSE 

2191 

F3  *  0.0 

2192 

ENDIF 

2193 

c 

2194 

IF (LEVSTS4.GE.41  THEN 

2195 

F4  -  TRIAG(MIN4(LEVSYS4I .MODE41LEVSTS4) ,MAX4(LEVSTS4)  ,3) 

2194 

ELSE 

2197 

F4  0.0 

2198 

ENDIF 

2199 

c 

2200 

IF (F3. CE.F4. AND. F4.NE. 0,0! THEN 

2201 

USERF  =  F3  +  TRIAGtWSHlINT ill .WSH11NT (2! .WSH1INT (31,3) 

2202 

ELSEIF(F4.GE.F3,AND.F3.NE. 0.0) THEN 

2203 

USERF  t  F4  +  TR IAGXWSHIINT (1) .WSHl INT (2) .WSH1INT (31,3) 

180 


c 


2204 

2205 

2208 

2207 

2208 

2209 

2210 
2211 

2212 
V"M  ^ 
LLiO 

2214 

2215 
ZZli 

■">*  1  *T 

LLi  • 
2218 

2219 

2220 


ELSE 

USERF  •  F3  +  F4 
ENDIF 


RETURN 

C  FUNCTION  USERF (82! 

C  SERVICE  TINE  OF  UINC  SHOP  TWO. 


8200  NCODE  =  ATRIB(lo) 

LEVSKS2  =  NOD (NCODE. 100000) / 10000 

IF1LEVSTS2.CE. 4)  THEN 

USERF  --  TR i  AG  ( f!  I N2  (LEVS T S2 )  i N0DE2  (LEVS r 32 )  i HA K2  (LE VS T S2 1 » 3 1 
ELSE 

USERF  :  0,0 
ENDIF 


Li  Li 
2222 

2223 

2224 

LLLJ 


228 


l223 
2229 
22  30 


32 


2233 

2234 

2235 

2238 
2237 

22o8 

2239 

2240 

2241 

2242 

2243 

2244 

2245 
2248 

2247 

2248 

2249 

2250 

2251 

2252 

2253 


c 

RETURN 

C 

C 

C  FUNCTION  USERF (83) 

C  SERVICE  TIME  OF  UINC  SHOP  THREE. 

C 

8300  NCODE  -  ATRIBdSi 

LEV'SfSl  -  MOD  (NCODE.  10000001/100000 

Lfvsiss  --  mwmtm/u 

c 

IF(LEVSrSi.GE,4)  THEN 

FI  =  TRIAGIHINl (LEVSYS1) .MODE1 (LEVSYS 1 > .WAX  1 (LEVSYS1 ! .3) 
Ei.SE 

FI  =  0.0 
ENDIF 
C 

IF(LEVSrS5.GE.4)  THEN 

F5  -  TRIAC (MIN3 (LEV5YS5) .MODES (LEVSTS5) .MAX5 (LEVSYS5) ,3) 
ELSE 

F5  =  0.0 
ENDIF 

L 

IF (FI  .GE.F5.AND.F5.GT.0.0) THEN 

USERF  =  PI  +  TRIAC (U3H3INT i l ) .USH3INT(2) .USH3INT(3!  .3! 
ELSEIF(F5.GE.F1.AND.F1.GT. 0.0) THEN 

USERF  =  F5  +  TRIAC (HSH3INT (1 ) .WSH3INT (21 .USH3INT (31.31 
ELSE 

IJSERF  -  FI  +  F5 
ENDIF 

C 

RETURN 
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’  :  *-■  *  ft  »  : 


1 


2275 

C 

il  VrJ 

C 

SECTION  9.  KMT  SERVICE  -  USERF (91)  TO  USERF (94) 

2277 

c 

2273 

9000 

continue 

2279 

C 

2230 

C 

MKT  FIXES  WJ  LEVEL  4  AND  LEVEL  5  PROBLEMS. 

2281 

C 

GLOSSARY  OF  VARIABLES: 

LLbi. 

C 

C0HM0N/UC0N9/NNTMrN(4»2l  iMfTNQ0(4iZ) » KMfWfilf  <6.  i 

Ltbj 

c 

2284 

c 

END  OF  CLOSSAftr 

2285 

c 

2284 

HFIM  --  MOD(IFN)  101 

2287 

GO  TO ( 9 100 » 9230 » 9300 1 9400 1 9500 1 9400 ) t  NFUNC 

2238 

r 

2289 

C 

2290 

C 

FUNCTION  USERF (91) 

2291 

C 

SERVICE  TIH£  FOR  HHT  ONE. 

2292 

c 

2293 

9100 

NCODE  =  ATRIBU8) 

L  --  NCODE/ 100003 

2295 

IF(L.GE.4)  THEN 

2298 

L  =  L  -  3 

2297 

USERF  =  TRI AG (MMTMIN ( 1 » L) » MMTHOB { 1 f  L) »MMTMAX ( 1 1 

2298 

ELSE 

2299 

USERF  =0.0 

2300 

END  IF 

2301 

2302 

RETURN 

2303 

c 

2304 

* 

2305 

r 

2304 

c 

FUNCTION  USERF (92) 

2307 

V 

SERVICE  TINE  FOR  NUT  TWO. 

2308 

c 

2309 

9200 

NCODE  =  ATRIB(I8) 

2310 

l  -  «OD!NCODE>100000)/10000 

2311 

IF (L.GE.4)  THEN 

23 12 

L  =  l  -  3 

2313 

USERF  =  TRIhG(HHTI1IN(2iU.HKTHOC(2.J.N«TNAXi2 

2314 

ELSE 

2315 

USERF  =  0.0 

2314 

ENDIF 

Ai'tl 

£0i  / 

C 

2318 

RETURN 

2319 

C 

2320 

C 

2321 

r 

2322 

c 

FUNCTION  USERF (93) 

■5  0^*' 

LOLO 

C 

SERVICE  TINE  FOR  NNT  THREE. 

2324 

C 
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LOL  J 

9300  NCODt  =  ATRIB118! 

-V>i 

L  34.0 

L  =  MOD (NCODE »  10000)71000 

2327 

IF (L.CE.4)  THEN 

Z3ZS 

L  =  L  -  3 

2329 

USERF  =  TRIAGiM«TNIN(3»L) iHNTH0D(3.L) i MMTMAX (3.L) *3 

Z330 

ELSE 

2331 

USERF  :  0.0 

*> 

L>304. 

END  IF 

n 's  •-.  ■■> 

Z.«J^3 

L 

£334 

RETURN 

£335 

c 

L03G 

c 

2337 

c 

FUNCTION  USERF (74) 

2338 

SERVICE  TINE  FOR  KNT  FOUR. 

2339 

c 

6340 

c 

2341 

9400  NCODE  =  ATRIBU8) 

2342 

L  =  NOBINCODE. 1000)/ 106 

2343 

IFiL.GE.4)  THEN 

2344 

i-  =  L  "  j 

2345 

USERF  =  TR1AG(HHT«IM(4.L>  iHMTHODU.U  .NHTNAMiL)  ,3. 

2346 

else 

2347 

USERF  -  0.0 

2348 

■  ■  ’  'v 

ENDIF 

2350 

t 

c 

RETURN 

t-231 

2352 

c 

2353 

c 

2354 

c 

FUNCTION  USERF (95) 

2355 

r 

L 

SERVICE  TINE  FOR  MIT  FIVE. 

2354 

c 

2357 

7500  NCODE  =  ATRIB(18) 

2358 

L  =  HOD(NCODE.100W10 

2359 

IF (L.GE .4)  THEN 

2:60 

L  -  L  ■  3 

236; 

USERF  =  TRIAG<MNTHIN(S«L}  .MHTMOD45.U)  *HMT«Alt  (5»L)  »3 

2362 

ELSE 

2363 

USERF  =  0.0 

2364 

ENDIF 

2365 

c 

2  366 

RETURN 

2347 

c 

2366 

5  "  i.  w 

*% 

V 

.1 

Ljt'1 

2370 

c 

FUNCTION  USERF (96) 

'I'n- 

(..}>  i 

c 

SERVICE  TINE  FOR  NNT  SIX. 

2372 

C 

2373 

9600  NCODE  =  ATRIBS18) 

2374 

L  =  MOD (NCODE i 10) 

£375 

£376 

£377 

£378 

£379 

2380 

£381 

£382 

A-V 

LJ  00 

£384 

£385 

£386 

£387 

£388 


IF1L.GE.4I  THEM 
L  =  L  -  3 

USERF  =  TR1AG((WTM1N(6iL) iHHTN0D(6»L) iMMTMAX 16.L ) * 
ELSE 

USERF  =0.0 
ENDIF 

C 

RETURN 

C 

£  END  OF  SECTION  h  W!T  SERVICE. 

C 

C 
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C  4444444** 

C  SECTION  Idt  SQUADRON  SERVICE  JSERF  l  1 0 1 )  T0  USc.RF  ‘  l ‘ 

C  4444#**** 

\mt  CONTINUE 
C 

C  GLOSSARY  OF  VARIABLES' 

C  COMMGN/UCOilS/MINt  (5)  »K0DE!<5)  »MAX1  (5)  tMlWKSi  #H0DE2r5)  r«A/E(5) 

C  tHIh3(5i  *HODE3C5)  »f<IAX3(5)  iMDE4l5l 

C  tHIN5<5) » MODES (5)  ,HAX5<5)  »HiN6(5:  »HGDE6*5)  iNAUIS) 

C  tUSrt!  INTO)  »*$H3INT  i 3) 


CONMuN / JCOM 10/MINI (5) » MODE  I ( 5 ) » MAX  * i 5  > 

FIXES  ONLY  TWO  AND  THREE  lEVEl  PROBLEMS »  B-;.r  %£ 

SERVICE  is  PERFORMED  CONCURRENTLY  FOR  All  SHO^ : 

(It  Ac.  SYSTEMS).  IF  TWj  SYSTEMS  ARE  IN  THE 

SAME  ShOF i  A  MAX  iIHE  i-3  JsED»  ^L‘J'S  AN  INTERFERENCE  1  *ME 

FROM  ALL  OTHER  SYSTEMS  BEING  WORKED  ON  CONCURRENTS  . 


NF'JNt  1  My  D  {  ;  r  N  ♦  10  J 

Go  TO  ( 1010fcb  lxJL00>  10400)  tNFUNi. 


F-.^CTIuN  US  ERF  i  101 ) 

SERvICt  uMt  FuR  awUADRijN  SHOP  UNE, 


10100  NcCDE  z  ATRiB(l8) 
MINT  *  0 


2419 

NDI'v  =  1000000 

2420 

c 

2421 

ov;  101 L0  i  -  1*4 

2422 

NCuDE  z  “00  InCOBEiNC  I V ) 

NCiV  :  MDtV/10 

2424 

- E V ( I )  -  NCODl.'NDIV 

IF(I.N£.3.AND.I.N£.4.AN[. 

L+ib 

&  (L£V(  i  1  .[Q.i.'jR.LEvd:  .ti.il  1  4» I NT  -  f; i N "  *  1 

2427 

10; 

.20  continje 

2428 

c 

2429 

IF (LEV f 3i .E5.2.CR.LEV12) .E8.3!  THEN 

2480 

£2  .  TR; AG ( ^ IN3 (LEV (3) ) • MODE 3 (LEV 0) ) iNAX3iLEv!3) ! *3 

24  vi 

Else 

^  4  3  it 

F 8  =  0.0 

24.;o 

END  IF 

2484 

c 

2485 

IF iLEv‘14!  ,EQ.2.0R.u£vi4)  .EQ.o)  'HEN 

2434 

F4  :  T»?IAGiHlN4(LEV(4;!,«ODE4(LE0U)l.«ft)[4(LEv(4!!,.2 

2437 

EL8E 

2138 

FI  --  0.0 

/ 


END  IF 


2439 


2440 

C 

2441 

IF (F3 . GT .F4 ) THEN 

2442 

FTENP  =  F3 

2443 

ELSE 

2444 

FTENP  =  F4 

2445 

ENDIF 

2446 

c 

2447 

IFININT.EQ.0. OR. FTENP. EQ. 0.0)  THEN 

2448 

USERF  =  FTENP 

2449 

ELSE 

2450 

USERF  =  FTENP  +  TRiACIMINI (NINT) ?  MODE I (MINT) rHAXI (NINT) i 

2451 

ENDIF 

2452 

c 

2453 

RETURN 

2454 

c 

2455 

c 

2456 

c 

FUNCTION  USERF (102! 

2457 

c 

SERVICE  TINE  FOR  SQUADRON  SHOP  TWO. 

2458 

c 

2459 

c 

2460 

10200  NCODE  =  ATRIB ! 18) 

2461 

NINT  =  0 

2462 

NDIV  =  1000300 

2463 

C 

2464 

DO  10220  I  =  1»6 

2465 

NCODE  -  NOD(NCODEiNOIV) 

2466 

NDIV  =  NDIV/ 10 

2467 

uEV(I)=  NCODE /NDIV 

2468 

c 

2469 

IF(I.N£.2.AND.  (LEV < I i  .EQ.2.0R.LEVU)  ,EQ.3!  i  NINT  =  NINT 

2*70 

10220 

CONTINUE 

2471 

C 

2472 

IF (LEV (2) .EQ.2.0R.LEV(2) .E3.3I  THEN 

2473 

F2  =  TRIAC(NIN2(LEV(2) ! iHOD£2(LEV(2) ) *MAX2<LEV(2) ! *3) 

2474 

ELSE 

2475 

F2  =  0,0 

2476 

ENDIF 

2477 

C 

2478 

IF  1NINT.EQ.0.OR.F2.EQ.8.0)  THEN 

2479 

USERF  =  F2 

2480 

ELSE 

2481 

USERF  *  F2  +  TRIACIMINI (NINT) .NODEI (NINT) .MAXI (NINT). 3) 

2482 

ENDIF 

2483 

C 

2484 

RETURN 

2485 

c 

2486 

c 

2487 

c 

FUNCTION  USERF ( 183) 

2488 

c 

SERVICE  TINE  FOR  SQUADRON  SHOP  THREE. 

187 


1 


249# 

10300  NCOBE  =  ATRI8U81 

2491 

NINT  =  0 

2492 

NDIV  =  1000000 

2493 

C 

2494 

DO  10320  I  *  1.6 

2495 

NCODE  =  MOD (NCODE. HD I V) 

2496 

NDIV  =  ND1V/10 

2497 

LEV  m  =  NCODE/NDIV 

2498 

IFd.NE.  l.AND.  I.NE.5.  AND. 

2499 

i  (LEV ( I )  .EQ.2.0R.LEVU)  .EQ.3) )  NINT 

2510 

10320 

CONTINUE 

2501 

C 

2502 

IE (LEV(l) .E3.2,0R.LtV(l) .E0.31  THEN 

2503 

FI  =  TRIAC (MINI (LEVI i ) ) >MODEl (LEV ( 1 ) ) tl 

2504 

ELSE 

2505 

FI  =  0.0 

2506 

ENDIF 

2507 

C 

2508 

IF (LEV (5) ,£8.2.0R.LEV(5) .EO.3)  THEN 

2509 

F5  =  TRIAC(MIN5(LEV(5) ) . MODES (LEV  (5) )  .1 

2510 

ELSE 

2511 

F5  =  0.0 

2512 

ENDIF 

2513 

c 

2514 

IF(F1.GT.F5)THEN 

2515 

FTENP  =  FI 

2516 

ELSE 

2517 

FTEMP  =  F5 

2ol8 

ENDIF 

2519 

t ' 

u 

2520 

IF (NINT.EQ.0.OR.FTEHP.EQ.0.0)  THEN 

2521 

USERF  =  FTEMP 

2522 

ELSE 

2523 

USERF  =  FTEMP  +  TRIAG(MINKNINT)  .MODE  I 

2524 

ENDIF 

2525 

c 

2526 

RETURN 

2527 

p 

2528 

c 

2529 

c 

FUNCTION  USERF (104) 

2530 

c 

SERVICE  TINE  FOR  SQUADRON  SHOP  FOUR. 

2531 

c 

2532 

c 

L  Jwj 

c 

2534 

10400  NCGDE  =  ATR1BU8) 

2535 

NINT  =  0 

2536 

NDIV  =  1000000 

2537 

C 

2538 

DO  10420  I  *  1.6 
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2539 

NCQDE  =  NQD(NCODEiNDIV) 

2548 

NDIV  --  NDIV/10 

2541 

LEV (11=  NCODE /NDIV 

2542 

C 

2543 

1F(I.NE.6.AND. ILEV(I) .EQ.2.QR.LEV(I) .EQ.3) )  HINT  -  MINT 

2544 

10420 

CONTINUE 

2545 

C 

2546 

IF <LEV (6) . £Q .2 . OR . LEV ( 6) . EQ . 3)  THEN 

2547 

F6  =  TRIAG(M1N61LEV(6I 1 ,H0D£6(LEV(6) ) iHAI6(LEV(6) ) ,31 

2548 

ELSE 

2549 

F6  =  0.0 

2558 

END  IF 

2551 

r 

2552 

IF (NINT.EQ.0.OR.F6.E9.0.0)  THEN 

2553 

USERF  =  F6 

2554 

ELSE 

2555 

USERF  =  F6  +  TRIAGtHINI (NINT) t NODE I (NINT) rHAXI (NINTI i 31 

2556 

END1F 

2557 

C 

2558 

RETURN 

2559 

c 

2560 

c 

2561 

c 

2562 

c 

2563 

c 

END  OF  SECTION  10,  SQUADRON  SERVICE. 

2544 

c 

2565 

c 

2566 

c 
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2367  C 


2568 

C 

SECTION  Ilf  MAINTENANCE  CONTROL  -  USERF! Ill)  TO  USERF(li3) 

2549 

C 

2578 

11000  CONTINUE 

2571 

C 

2572 

C 

GLOSSARY  OF  VARIABLES  USED  IN  THIS  SECTION 

LJ/O 

c 

2574 

c 

SLAM  FUNCTIONS: 

2575 

c 

NNRSC  -  DETERMINE  AMOUNT  OF  RESOURCE  AVAILABLE 

2576 

c 

(11  -  WCSHQP1  RESOURCE 

c 

(2)  -  WGSH0R2  RESOURCE 

2578 

r 

V 

(3)  -  WGSH0P3  RESOURCE 

2579 

C 

(4!  -  WCSH3P4  RESOURCE 

2588 

c 

15)  -  MMT1  RESOURCE 

258! 

c 

(6)  -  MHT2  RESOURCE 

2582 

c 

(7)  -  MMT3  RESOURCE 

2583 

c 

(8)  -  MMT4  RESOURCE 

2584 

c 

(9)  -  MMT5  RESOURCE 

2585 

c 

(10)  -  MMT6  RESOURCE 

2586 

c 

2587 

c 

INTEGER  VALUE  FUNCTIONS! 

2588 

c 

NFUNC  -  DETERMINE  WHICH  FUNCTION  TO  ACCESS. 

2589 

c 

N  -  CODED  NY  FAILURE  CODE. 

2590 

c 

259! 

c 

END  OF  CLOSSARY. 

2592 

c 

2583 

NFUNC  =  HODlIFNi 10) 

2594 

GG  TO  (11100, 11200. 11300). NFUNC 

2595 

c 

2596 

c 

2597 

c 

FUNCTION  USERF (111) 

2598 

c 

DETERMINE  IF  ENTITY  REQUIRES  WING  SERVICE  AND  IF  IT’S  AVAILABLE, 

2599 

c 

IF  SO,  RETURN  1,  ELSE  RETURN  0. 

2600 

c 

2601 

11100  USERF  =  0.0 

2602 

N  -  ATRI8U8) 

2603 

IF (N/ 100000. GE. 4. AND. NNRSC (3) .GT.0.OR. 

2604 

+  HOD(N, 1000001/10000. GE. 4. AND. NNRSC(2) .GT.0.0R. 

2605 

+  NOD(N, 100001/1000  ,GE.4.AND.NNRSC(1) .GT.0.OR. 

2606 

+  NOD(N, 10001/100  ,GE. 4.AND. NNRSC (1 ) .GT.0.OR. 

2607 

+  MOD(N,100)/10  .GE.4.AND.NNRSC(3) .GT.0.OR. 

+  MOD (N , 10)  ,GE.4,AND.NNRSC(4I .GT.0!  USERF  -  1.0 

2609 

RETURN 

2610 

c 

2611 

c 

2412 

c 

FUNCTION  USERF (112) 

2613 

c 

DETERMINE  IF  A/C  REQUIRES  MMT  IF  IT  IS  AVAILABLE. 

2414 

c 

IF  SO,  RETURN  1,  ELSE  RETURN  0. 

2615 

c 

2616 

11200  USERF  =  0.0 

2617 

N  =  ATRI8118) 

2618 

IF (N/ 100000  . CE . 4 . AMD . NNRSC ( 5  > .CT.0.OR. 

2419 

+  HOD 1 « , 1 00000) / 1 0000 . CE . 4 . AND . NNRSC (4) . GT . 0 . OR . 

2420 

♦  HOD1N, 10000! /1000  .GE.4.AND.NNRSC(7I .GT.0.OR. 

2421 

+  HODIN,  10001/100  .CE. 4 . AND.NNRSC (8  > .GT.0.OR. 

2422 

+  HOD(N. 1001/10  .GE. 4. AND. NNRSC (9) .GT.0.OR. 

2423 

♦  MOD (Mt  10)  ,GE.4.ANB.NNRSC(10)  .CT.0I  USERF  =  1.1 

2424 

RETURN 

2425 

C 

2424 

C 

2427 

C 

FUNCTION  USERF (1131 

2428 

c 

DETERHINE  IF  OPENING  AVAILABLE  IN  UINC  HI  FOR  A/C  WAITING 

2429 

c 

2430 

11300  N  =  ATR!B(18i 

2431 

USERF  =0.0 

2432 

IF (XX (93) .EG. 0, AND. 

2433 

+  (NNRSC (3) .GT.0.AND.  N/100000.GE.4  .OR. 

2434 

♦  NNRSC (2) .CT.0.ANB.  HDD(N, 1000001/10000, GE. 4. OR. 

2435 

+  NNKSC(l) .GT.0.AND.  HOD(N, 100001/1000, GE. 4. OR. 

2434 

+  NNRSC (11. GT.0. AND.  HQD(N. 1000) /100.GE.4.OR. 

2437 

+  NNRSC (3) .CT.0.AND.  HODfN, 100) /10.GE.4.OR. 

2438 

+  NNRSC (4 ) .CT.0.AND.  MOD (Nt 10) .GE.4) )  USERF  =  1.0 

2439 

RETURN 

2440 

C 

2441 

C 

2442 

C 

END  OF  SECTION  11,  MAINTENANCE  CONTROL. 

2443 

C 

1 

! 


2444 

C 

IHHMH 

2445 

C 

SECTION  12.  STATISTICS  -  USERF 1121)  TO  USERF1125) 

2444 

c 

IHHHU 

2447 

c 

2448 

12000  CONTINUE 

2449 

C 

245 0 

NFUNC  =  NOD1IFN.10) 

2451 

GO  TO ( 12100 » 12200 >  1 2300.  12400 .  1 2503) . NFUNC 

2452 

c 

2453 

c 

FUNCTION  USERF1121) 

2454 

c 

INCRENENT  NUMBER  OF  SORTIES  FOR  A/C  AND  PILOT  BI  DAT. 

2455 

c 

2454 

c 

2457 

12100 

IFITNOM.LT. 1440.0!  THEN 

2458 

ATRIB14)  -  ATRIB14)  +  1 

2*59 

ATRIB (341 =  ATRIB134S+  1 

2440 

ELSEIFdNOH.LT. 2880.0)  THEN 

2441 

ATRIE15!  =  ATRIB15)  +  1 

2442 

ATR IB ( 35) =  ATRIB1351+  1 

2443 

ELSE 

2444 

ATRIB16)  =  ATRIB161  +  1 

2445 

ATR18(36)=  ATRIB1341+  1 

2444 

ENDIF 

2447 

C 

2448 

USERF  =0.0 

2449 

RETURN 

2470 

c 

2471 

c 

2472 

c 

FUNCTION  USERF (122! 

2473 

c 

NARK  CORRECT  ATRIB  (1  PER  P«Y)  HITH  TNOH  SO  PILOT  FLYING  TINE 

2474 

c 

STATISTICS  CAN  BE  COLLECTED. 

2475 

c 

2474 

12200 

IFITNOM.LT. 1440,0)  THEN 

2477 

ATR IB (37)  -  TNOH 

2478 

ELSEIFITNOM.LT. 2880.0)  THEN 

2479 

ATRIB (38)  =  TNOH 

2680 

ELSE 

2481 

ATRIB (39)  =  TNOH 

2682 

ENDIF 

2483 

C 

2684 

USERF  =0.0 

2485 

RETURN 

2686 

C 

2687 

C 

2688 

C 

FUNCTION  USERF! 123) 

2689 

c 

HARK  CORRECT  ATRIB  (BY  DAY)  SO  TIME  BETHEEN  PILOT  SEPERATION  1 

2690 

c 

NEXT  FLIGHT  ON  SANE  DAY  CAN  BE  CALCULATED. 

2691 

c 

2692 

12300  IFITNOM.LT. 1440.01  THEN 

2493 

ATRIB ( 10)  =  TNOH 
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r  f 


i 


I  i 


2694 

ELSEIFITNOH.LT. 2880.0)  THEN 

2695 

ATRIB(ll)  =  TNOH 

2696 

ELSE 

2697 

ATRIBU2)  =  TNOH 

2698 

END  IF 

2699 

C 

2700 

USERF  =  0.0 

2701 

RETURN 

2702 

C 

2703 

C 

2704 

c 

FUNCTION  USERF! 124) 

2705 

c 

CALCULATE  TOTAL  A/C  OPERATING  TINE  PER 

2706 

c 

2707 

12400 

IFiTNOH.LT. 1440.0)  THEN 

2708 

ATRI8<28)  =  ATRIB (7) 

2709 

ELSEIFfTNOH.LT. 2880.0)  THEN 

2710 

ATRIB (29)  =  ATRIB(7)  -  ATRIB(28) 

2711 

ELSE 

2712 

ATRIB (30)  =  ATRIB (7)  -  ATRIB(28)  - 

2713 

ENDIF 

2714 

C 

2715 

USERF  =0.0 

2716 

RETURN 

2717 

C 

2718 

c 

2719 

c 

FUNCTION  USERF (125) 

2720 

c 

NARK  CORRECT  ATRIB  (1  PER  DAT)  TO  TNOH 

2721 

c 

TURNAROUND  TINE. 

2722 

c 

2723 

12500 

IFtTNOH.LT. 1440.0)  THEN 

2724 

ATRIB (25)  =  TNOH 

2725 

ELSE I F ( TNOH . LT . 2880 . 0 )  THEN 

2726 

ATRIB (26)  =  TNOH 

2727 

ELSE 

2728 

ATRIE(27)  =  TNOH 

2729 

END  IF 

2730 

c 

2731 

USERF  =0.0 

2732 

RETURN 

2733 

c 

2734 

c 

2735 

c 

END  OF  SECTION  12,  STATISTICS. 

2736 

c 

2737 

c 

2738 

c 

2739 

c 
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i*.T-  .  iA. 


"TT3 


27*8 

C 

HHHHi 

2741 

C 

SECTION  13.  NX  FAILURE  DISTRIBTIONS  --  USERF!131)  TO  : 

27*2 

C 

HHtHH 

27*3 

c 

27*4 

13088 

CONTINUE 

2745 

C 

2744 

NFUNC  =  MOD  < IFN » 10) 

2747 

GOTOf 13100. 13100. 131001 13100. 13l0w. 13100. 13700) .NFUNC 

2748 

C 

2749 

C 

FUNCTION  USERF (131)  TO  FUNCTION  USERF (134) 

2758 

13108 

USERF= ( 1+BET (NFUNC) /ALP (NFUNC ) ) «HTBF (NFUNC ! ♦ 

2751 

1 

i  BETA (ALP (NFUNC) .BET (NFUNC) .2) 

2752 

RETURN 

2753 

C 

2754 

0 

2755 

c 

2754 

c 

FUNCTION  USERF (137) 

2757 

c 

UNIFORNLT  DISTRIBUTE  THE  INITIAL  ENGINE  RUN  TINE. 

2758 

13700  USERF  -  UNFRH (ERUNMlNf ERUNMAX .2) 

2759 

RETURN 

2740 

C 

2741 

2742 

C 

END  OF  SECTION  13. 

2743 

n 

v 

2744 

ENO 

2745 

L 

2744 

2747 

c 

2748 

C 

2749 

c 

2778 

c 

2771 

c 

2772 

c 

19* 


J 


LI  li 

2774 

2775 

2776 

2777 

2778 

2779 
2788 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 
2783 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 
2885 
2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 
2817 
i81o 

2819 

2820 
2821 
2822 


SUBROUTINE  EVENT (tEV) 

COHNON/SCOHl/ATRI8(100bDB(100),DDL(100>,DTNOU,II,HFA.MSTOP,NCLNR 
4fNCRDRrNPRNT»NNRUN»NNSETiNTAPE>SS(1001i$SL(100liTNE)!TiTNOWiXKll08) 
COMMON  QSET(l) 

COHMON/PFLAG/MAXPR T . LEVPRT , BPRT . EPRT 

c 

COMMON/ SCHEDLR/NGACLEOi  2)  >  DELAY  (3.2)  iSRAT£(3) 

COMMON/MSNREQ  /INI T AC ( 3 ) , REQPCT 13 1 , L I M I T AC . ACT  I VE ( 6 ) 

COMMON/STATS  /MAXCONF (6) »NACTTPE(6»3) .NCSO(300I ,M$NRQA2,MSNFLN(3i 
COMMON/LOCAL  /PRIORTY (6) iNCACCNT (2) 

COMMON /CLOCK  / INTDARK , DUSK ( 3 1. DA  TIGHT ( 3) . MAJEVNT ( 1 3  r  2) 

C 

COMMGN/UCOM2/NPARK(6,50,2),NTTPE(6.3) 

c 

REAL  A (50) , MAJEVNT 

INTEGER  PRI0RTr»NAVAIU6),NSET(l),L0STFTU6) 

EQUIVALENCE  (NSETli) ,QSET(1) ) 

LOGICAL  FORMED ,REQSUPT (6), DAYTIME*ACTIVE. INTDARK 
C 

C  NIGHT/DAT  CLOCK 
IF (INTDARK) THEN 
DAYTIME  =  .FALSE. 

DO  10  1  =  1,3 

IF  (TN0« .  GE .  DA  YLGHT  < I) .AND. TNON.IT.OUSKII )IDA7TIME=.TRUE, 

10  CONTINUE 

ELSE 

DATTIME  -  .TRUE. 

DO  20  I  =  1.3 

IF  ( TNOH.  GE.  DUSK  (I)  .AND.  TNON .  J .  DATLCHT  ( I ) )  DAU I  M£= .  FAlSE  . 

20  CONTINUE 

ENDIF 

c 

C  DAT  OF  CONFLICT  CLOCK 
IFITNGK.LT. 1448.0)  THEN 
NDAT  =  1 

ELSEIFdNOH.LT. 2880.0)  THEN 
NDAT  -  2 
ELSE 

NDAT  =  3 
ENDIF 

C 

C 

C 

r» 

c 

C 

IF (LEVPRT. GE. 5. AND. TNOK.GE. BPRT. AND. TNOH.LE. EPRT! THEN 

PRINT*,’  EVENT  MEV,'  CALLED,  TIME  ’,TNON,’,  A/C  ’,ATRIE(2) 
END  IP 


IFdEV.EQ.  101GOTO  1000 


2823  IFdEV.EQ.lltCOTO  110(3 

2824  CO  TO  d0it280>308i400>500i&00>700)  »IEV 

2825  C 

2828  C 


1% 


2S27 

C 

2828 

f 

MAJOR  EVENT  CLOCK  -  EVENT  1. 

2829 

100 

CONTINUE 

2838 

i„ 

HHIHH 

2831 

c 

2832 

C 

2833 

c 

MAJOR  EVENT  CODEC: 

2834 

c 

0  -  TERMINATE 

2835 

e 

1  -  scheduler 

2836 

c 

2  -  NIGHT  PARK 

2837 

3  -  GRA  SWITCH 

2838 

■ 

4  -  RESUPPLT/RECONFIURE 

2839 

c 

99-  NOTHING 

2840 

c 

234! 

c 

MAJOR  EVENTS  MUST  BE  STORED  'IN  ORDER"  IN  MAJEVNT (J, 1 ) , 

2842 

c 

OF  EVENT  IN  MAJEVNT  iJ»25 .  NAHUM  OF  13  EVENTS. 

2643 

c 

2644 

XX (98)  =  999999.0 

2845 

XX (96)  =  0.0 

2846 

IP (TNOW . IT . MAJEVNT (1,1 ) ) THEN 

2847 

c 

IP  EVENT  1  IS  CALLED  PRIOR  TO  THE  FIRST  ACTIVITY,  DE; 

2846 

c 

UNTIL  THE  C1RST  ACTIVITY  SHOULD  BE  CALLED. 

2849 

XX (98)  =  MAJEVNT (1,11  -  TNON 

2850 

XX (96)  =  0.0 

2851 

£~St 

2632 

c 

FIND  THE  ACTIVITY  BEING  CALLED,  AND  RELEASE  THE  ENTITY  ' 

2853 

c 

INITIATE  THAT  ACTIVITY. 

■“  *  c  * 
t :  j-* 

DO  110  I  :  1,13 

235  "j 

IE (TNO^.EQ. MAJEVNT 1 I , 1 ) . AND . MAJEVNT ! I , 2 ) . NE . 99 . 0) THEN 

2856 

IF (MAJEVNT (1,2) .GT. 0.0. AND. MAJEVNT (1,2) .LE. 4, 01  THEN 

288? 

XX (96)  =  MAJEVNT(I,2) 

2858 

IF(iJ£.13>XX(98)  -  MAJEVNT (1+1,1)  -  TNOW 

2859 

ELSE 

2660 

XX (96)  ^  0.0 

2861 

ENOIF 

il86<. 

MAJEVNT ( I »2)  =  99.0 

2863 

END  IF 

2864 

11# 

CONTINUE 

2865 

ENDIF 

2866 

RETURN 

2867 

c 
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DdDAYTlHE)  THEN 


29  IS 
291? 

2920 

2921 

2922 

2923 

2924 

2925 

2924 
2927 

2925 

2929 

2930 

2931 

LijL 

2933 

2934 

2935 
2934 
2937 

2932 

2939 

2940 

2941 

2942 


rf* 

L 

C  FIRST  FOR*  ALL  THE  FLIGHTS  rOR  GAGGLE  NUMBER  1  OF  NDAY 
C  (OR  AS  MANY  FLIGHTS  AS  THERE  ARE  AIRCRAFT).  THEN  SCHEDULE 

C  THE  DELAY  FOLLOWING  THE  LAUNCH  OF  THE  FIRST  GAGGLE. 

c 

IF (NCACCNTd)  .LT.NGAGLE(NBAYil) )  THEN 
NGAGCNT(l)  =  NCACCNTd)  +  1 
XX (46)  =  3.0 
XI (97)  --  3.0 

CAL.  ORGANFTfRRIORTY  ,1X46) , NDAY  .FORKED. NS8.  XX  (49!  -UFA! 

XX (94)  -  NSQ 
IF(. NOT. FORKED!  THEN 
NCACCNTd)  --999999 
11(98)  =  DELAY  (NDAY  d) 

11(94)  ;8.0 
EHDIr 
C 

1F(LEVPRT.GE.4.AND.TN0H.CE.BFRT.AND.TN0H.LE.EPRT)THEN 
IF  (FORKED)  PRINT**  'GAGGLE  I  :FLT  dNGA&CNTdh’GF  DA*  '.NDAY 
ENDIr 

ELSE  IF  (NCAGCNXl !  .EQ.NCAGi.£(NBAYd)  .AND. 

I  NOACLE (NDAY  *  I ) . NE . 0) THEN 

NCACCNTd)  =  999999 
XX (96;  =  DELAY (NDAY ,  i ) 

IX (94)  -  2.0 


2947 

2948 
294? 

2950 

2951 

2952 

2953 

2954 

2955 
2954 


I'L£vFRT.GE.4.ANG.TNOW.CE.BPRT.ANB.TNOW.LE.EPR7)7HEN 
f,RINT**  !DElAY  AFTER  GACCLE  1  ON  DAY  ’  ,NDAY 
ENBIF 

Ei. SE IF (NGAGCNT ( 2 1 .  LT . NGACu  (NDAY * 2) )  THEN 

lr 

C  NEXT  FORK  ALl  THE  FLIGHTS  REQUIRED  FOR  THE  SECOND  CACGLE 

C  FOLLOWED  BY  ANOTHER  DELAY.  IF  ENOUGH  AIRCRAFT  ARE  NOT 

C  AVAILABLE*  THEN  ONlY  THE  NUMBER  OF  POSSIBLE  FLIGHTS  ARE 

C  SENT . 

C 


2957 

295S 

2959 

2940 

2941 

2942 


NGAGCNT  iZ!  =  NGAGCNT (2)  +  1 
XX (48)  =  3.0 


11(97)  --  3.0 

CALL  ORGANPT ( PR I ORT  Y , 1 1 i 48) » NDAY  *  FORKED*  NS8 . II ( 49 ) . KFA ) 
IX (94)  =  NSfi 
IF (.NOT. FORKED)  THEN 


*.  *43 

2944 

2945 
<.*66 
2947 


NGAGCNT (2!  -  999999 
XX (96)  =  DElAY(NDAY,2) 
XX (94!  =  8.0 
ENDIF 
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IF (LEVPRT .GE .4 . AND .TNOW. CE .BPRT . AND . TMOU. LE . EPRT J  THEN 
IF (FORMED)  PRINT*. 'GAGGLE  2: FLT  ’.NCAGCNT12) ,’OF  DAT  ’ . NDAT 
ENDIF 

ELSEIF {NCAGCNT (2) .EQ.NCAGLE (NDAT .2) .AND. 

NGAGLE (NDAT .2) . NE. 0) THEN 
NGACCNT (2)  =  999999 
XX  (98>  =  DELAT (NDAT .2) 

XX  (96)  =  8.0 

IF (LE VPRT . GE.4 . AND. TNOH . GE . BPRT . AND . TNOW . LE . EPRT ) THEN 
PRINT*. 'DELAT  AFTER  GAGGLE  2  ON  DAT  ■ . NDAT 
ENDIF 


FOLLOWING  THE  SCHEDULING  OF  THE  GAGGLES  TO  AREA  THREE. 
SCHEDULE  FLIGHTS  FOR  AREA  2  AS  LONG  AS  POSSIBLE  OR  AS 
MANY  AS  REQUIRED  (MSNRQA2),  ONCE  NO  MORE  AREA  2  MISSIONS 
CAN  EE  SCHEDULED.  AREA  1  MISSIONS  ARE  SCHEDULED  UNTIL 
NO  MORE  FLIGHTS  CAN  EE  FORMED.  WHEN  AN  ARCRAFT  RETURNS 
TO  THE  READY  POOL.  ANOTHER  FLIGHT  IS  FORMED.  IF  POSSIBLE. 
IR  IT  CAN  BE  FORMED.  IT  IS  SENT  TO  THE  CORRECT  AREA. 

AREA  Z  IF  MSNRQAZ  IS  NOT  MET.  E.SE  AREA  1  (THIS  ALSO 
DEFENDS  ON  THE  TANK  CONFIGURATION  OF  THE  AIRCRAFT). 

IF (MSNFL* <2 MSNRQAZ)  THEN 
XX  (97)  =  IJ 
XI ( **8 i  "  t . Q 

CALL  ORCANPT (PRIORT Y , XX (48) .NDAY .FORMED. NSQ. XX (49) ,MFA) 
IF ( .NO*. FORMED)  THEN 
XX (481  =  S.0 

CALu  ORGANS (PRIORTY.XX i48i .  cr|RMED>MSQiXX(49)  .MFA) 
ENDIF 

XX (96)  =  NSQ 
ENDIF 

IF ( . NOT. FORMED)  THEN 
XX (97)  =  ;,0 
XXMS)  :  1.0 

CALi-  ORCANPT  (PRIORTY.XX  (48*  .NDAY  .FORMED.  NSQ.  XX  1 49 j .MFA) 
IF (.NOT. FORMED)  THEN 
XX ( 48)  =  2.0 

CALL  ORGANPT (FRIORTY. XX (48) .NDAY. FORMED .NSQ. XI (49) ,MFA) 
ENDIF 

IF(.NOT.FORMED)  THEN 
XX (48)  --  S.0 

CALL  ORCANPT (PRI ORTY , X X ( 48 ) , NDAY . FORMED . NSQ. X X (49 ). MFA I 
ENDIF 

XX (961  =  NSQ 


3018 

ENDIF 

3019 

C 

3020 

IFl. NOT. FORMED)  XX<98)  =  7.0 

3021 

END  IF 

3822 

C 

ODLO 

IF (FORKED)  THEN 

3024 

XX (47)  =  XX (47)  +  1 

3025 

IF(XX(47) .GT.48!  XX(47>  =  1 

3028 

NflCTYP£(NSQ. IFIX (XX (48)1) =NACTYPE (NSQ r IF I X ( XX < 48) ) )  -  3 

3027 

ENDIF 

3028 

C 

3029 

IF (IEVPRT . GE . 3 . AND . TNOU . CE . BPRT. AND . TNOt* . lE . tPRT ) THEN 

3030 

IF (FORKED)  THEN 

3031 

PRINT*,  ’-MSN’  ,ni47) t ’  GOING  TO' »XX(97) »?  WITH  TANKS' . XX (46) 

3032 

ELSE 

\ 

3033 

PRINT*,’  NOT  FORKED’ 

3834 

ENDIF 

3835 

ENDIF 

3038 

c 

3037 

Ei.SE 

% 

3038 

c 

3039 

iw 

THE  ABOVE  SCHEDULING  PROCEDURES  ARE  FOLLOWED  UNTIL  NIGHT 

3040 

c 

FALL,  WHEN  THE  SCHEDULING  OF  MISSIONS  IS  ENDED. 

3041 

r 

o 

3042 

XX  (98)  =  0.0 

3043 

o 

3044 

ENDIF 

3045 

c 

3048 

c 

3047 

c 

ONCE  the  QUOTAS  FOR  AREA  3  AND  AREA  2  MISSIONS  ARE  MET, 

3048 

c 

CHANGE  THE  SPECIFIED  CONFIGURATION  OF  A  SQUADRON  SO 

3049 

c 

SUBROUTINE  RECONFIGURE,  USERF(73),  CAN  MAKE  INTELLIGENT 

3050 

c 

DECISIONS  ON  WHETHER  OR  NOT  TO  RECONFIGURE  AN  AIRCRAFT. 

3051 

c 

J 

3052 

IF!MSNFLH(2i.GE.KSNRQA2)THEN 

3053 

DO  320  I  =  1,8 

3054 

KAXCONF(I)  =  1 

3055 

320 

CONTINUE 

3058 

ELSE!F(NCAGLE(NDAT,1) .EQ.0.AND.NGAGLE(NDAT ,2) .EQ.0.OR. 

ft 

3057 

4  NGAGCNT ( 1 ) . EQ , 999999 . AND . NGAGCN  T ( 2 ) . EQ . 0 . OR . 

3058 

4  NGAGCNT (2). EG. 999999) THEN 

3059 

DO  340  I  =1,8 

3080 

IF (KAXCONF (I) .EQ.3) MAXCONF ( I )  =  2 

3081 

340 

CONTINUE 

3082 

ENDIF 

3083 

c 

3084 

RETURN 

8085 

c 

3088 

f 

3087 

c 

Lbbbbi 

201 

EVENT  4. 


3048 

C 

3049 

c 

INITIAL  NIGHT  PARK  --  EVENT  4. 

3070 

c 

3071 

400 

CONTINUE 

3072 

C 

3073 

c 

3074 

c 

PERFORM  THE  INITIAL  NIGHT  PARKING.  MOVE  ALL  AIRCRAFT  NOT 

3175 

c 

PARKED  IN  A  SHELTER  TO  A  SHELTER  (TWO  A/C  TO  A  SHELTER. 

3874 

c 

EXCEPT  ORA  SHELTERS).  THIS  RULE  APPLIES  TO  ALL  AIRCRAFT 

•'  ' 

c 

EXCEPT  THOSE  IN  MAINTENANCE.  WHEN  A  MAINTENANCE 

jt  C 

c 

AIRCRAFT  RETURNS  TO  THE  SQUADRON  AREA.  THE  NEXT  ROUTINE  - 

0079 

c 

EVENT  5  -  TRIES  TO  PARK  IT  IN  A  SHELTER. 

3080 

c 

3081 

CALL  NIGHTPKd .NPAfiK.NTTPE! 

3082 

c 

3083 

I F ( LEVPRT . GE . 2 . AND . TNOW . GE . EPRT . AND . TNOW .LE.EPRT)  THEN 

3084 

PRINT*, *m  INITIAL  NIGHT  PARK,  TIME  »,TNOW 

3085 

ENDIF 

3084 

c 

3087 

RETURN 

3086 

c 

3069 

c 

3090 

c 

3091 

c 

4*4444444 

3092 

c 

FOLLOW-ON  NIGHT  PARKING  -  EVENT  5. 

3093 

c 

444444444 

3094 

500 

CONTINUE 

3095 

c 

3094 

c 

3097 

XX  036)  =  0.0 

3098 

IF(. NOT. DATTIME)  THEN 

3099 

XX (96!  =  1.0 

3100 

CALL  NIGHTPK(2,NPARK,NTTPE! 

3101 

ENDIF 

3102 

c 

3103 

I F (LEVPRT . GE . 3. AND . TNOW . GE . EPRT . AND . TNOW . LE . EPRT )  THEN 

3104 

PRINT*, ’-FINISHED  NIGHTPK(2)> 

3105 

ENDIF 

3104 

c 

3107 

RETURN 

3108 

c 

3109 

c 

3110 

c 

202 


3111 

C 

HiHHH 

HI* 

JiiL 

C 

QRfl  CHANCE  OVER  --  EVENT  8. 

3113 

C 

********* 

3114 

800 

CONTINUE 

3115 

31  io 

C 

3117 

c 

CHANCE  OVER  OF  THE  ORA  PILOTS  FOR  ALL  THE  SQUADRONS.  ALSO 

3113 

c 

IF  A  REPLACEMENT  SQUADRON  ARRIVED  DURING  THE  DAT.  TAKE  THE 

3119 

c 

OLD  SQUADRONS  AIRCRAFT  OFF  3RA  AND  DISPERSE.  AND  PUT  THE 

3120 

i 

REPLACEMENTS  AIRCRAFT  ON  QRA. 

3121 

c 

1  -V> 

JILL 

CALL  QRASUCHINCSQ.NPARK) 

•■>*  *  A 

■jlL-j 

c 

3124 

I F (LEVPR7 . GE . 2 . AND . TNOW . GE . BPRT . AND . TNOU . lE . EPRT )  THEN 

3125 

PRINT*.'***  QRA  CHANCE  OVER.  TIME  ’.TNOW 

ilLb 

‘31  ^7 

ENDIF 

Ji  LI 

3128 

c 

RETURN 

3129 

c 

3130 

c 

3131 

e 

I 


t 


£03 


3132 

C 

3133 

C 

RESUPPLY  AND  RECONFIGURATION  -  EVENT  7. 

3134 

c 

tHHHH 

3135 

700 

CONTINUE 

3136 

C 

^7 

01  Of 

c 

3138 

700 

DO  710  I  =  1,6 

3139 

LOSTFTL(I)  --  0 

3140 

NAVAIL(I)  =  0 

3141 

710 

CONTINUE 

3142 

r 

o 

3143 

r 

L 

DISPLAY  THE  JUNK  FILE  (IF  SPECIFIED!  AND  CALCULATE  THE  NUP6ER 

3144 

c 

OF  FLIGHT  LEADS  LOST  PER  SQUADRON. 

3145 

c 

3146 

IF ( LEVPRT . G£ . 1 . AND . TNOH .GE.BPRT. AND . TNOW .LE.EPRT)  THEN 

3147 

PRINT**’******  ***’ 

3148 

PRINT*, »  JUNK  FILE’ 

3149 

ENDIF 

3150 

c 

3151 

IF (NNQ <?9) .NE.0)  THEN 

3152 

IFCLEVPRT.GE. 1 . AND. TNOW. GE.BPRT. AND. TNOH. LE.EPRT) THEN 

3153 

PRINT*,'  SQDN  TAIL  FAILURE  BATTLE  PILOT  ' 

3154 

ENDIF 

3155 

BO  720  I  -  1  ,NNQ(’?9! 

3156 

L  =  LOCAT (1,99) 

3157 

c 

3153 

I F ( L EVPR T . GE . I . AND. TNOH . GE . BPRT . AND . TNOH . LE . EPRT )  THEN 

3159 

PRINT  71UQSET (L+l) ,3SET (L+2) ,QSET(L+18i ,QSET(L+161 , 

3160 

t  QSET (L+3Z) 

3161 

ENDIF 

3162 

711 

FORINT,"  ’,5(F7. 0,1X11 

3163 

C 

3164 

NSQ  =  QSET (L+l! 

3165 

NPL  =  QSET (L+32! 

3166 

NST  =  QSET (L+33) 

3167 

IF(NPL.NE.0.AND.NST.GT.0)LOSTFTL(NSQ!  =  LOSTFTL (NSQ)  + 

3168 

720 

CONTINUE 

3169 

ENDIF 

3170 

C 

•1i1| 

0  i  /  I 

IF(LEVPRT.GE.3. AND. TNOH. GE.BPRT. AND. TNOH. LE.EPRT)  THEN 

3172 

PRINT*, '-FLT  LEADS  LOST  BY  SQDN:  ’, (LOSTFTL(I) ,1=1,6! 

3173 

ENDIF 

3174 

C 

3175 

CALL  RESUPLY (ACTIVE, NCSQ.LOSTFTL, LIN!TAC,REQSUPY ,TNON) 

01/6 

C 

3177 

I F (LEVPRT . GE . 2 . AND . TNOH . GE . BPRT . AND . TNOH . LE . EPRT !  THEN 

3178 

PRINT*,’***  RESUPPLY  DETERKINED,  TINE  ' , TNOH 

3179 

ENDIF 

3180 

C 

3181 

C 

SET  NETWORK  VARIABLES  TO  1  IF  SQUADRON  REQUIRES  RESUPPLY, 

20* 


3182 

C 

SET  TO  0  IF  NO  RES’JPPLT  IS  REQUIRED. 

3183 

C 

3184 

DO  730  I  =  1,6 

3185 

XU (49+1)  =  0.0 

3186 

IF (ACTIVE! I) .AND.REQSUPY (1 ) )  XX(49+Ii  =  1.0 

3187 

730 

CONTINUE 

3188 

C 

3189 

c 

3190 

c 

3191 

c 

DETERMINE  THE  NUMBER  OF  AIRCRAFT  AVAILABLE  TO  FLY 

A  miss: 

3192 

c 

PER  SQUADRON,  THEN  RECONFIGURE  THE  AIRCRAFT  BASED  ON  THE 

3193 

SAKE  RATIOS  AS  ORIGINALLT  DESIGNATED  (INiTAC). 

3194 

c 

3195 

DO  740  I  =  1,300 

3196 

IF (NCSQI  I)  .GT.0.AND.NCSQU)  .LE.6)  THEN 

3197 

NS3  -  NCSQI! ) 

3198 

NAVAIL(NSQ)  =  NAVAIL(NSQ)  +  1 

3199 

ENBIF 

3200 

740 

CONTINUE 

3201 

c 

3202 

IF (NNQ(l9i .GT.01  THEN 

3203 

DO  750  1  =  1.NNQU9) 

3204 

NTAIL  =  QSET(LOCAT(I, 191+2) 

3205 

NSQ  =  NCSQ (NTAIL) 

3206 

NAVAIL(NSQ)  -  NAVAIKNSQt-i 

3207 

750 

CONTINUE 

3208 

END  IF 

3209 

C 

3210 

I F (LEVPRT . GE . 2. AND . TNON .GE.BPRT, AND .TNOH.LE. EPRT 1 

THEN 

3211 

PRINT*, '-A/C  AVAIlABLE  El  SQDN:  ’ ,  (NAV'AILil)  ,1  =  1, 

6) 

3212 

END  IF 

2213 

c 

3214 

CALL  RECONFG ( I N I T AC i KAXCONF , NACT >PE , NAVAI L , TNOM i 

3215 

3216 

IF(LEVPRT.GE. 2. AND. TNOH. GE.BPRT. AND. TNOH.lE. EPRT) 

THEN 

3217 

PRINT*,’***  A/C  RECONFIGURED,  TINE  ’,TNOW 

3218 

ENOIF 

3219 

c 

3220 

c 

322! 

RETURN 

'Ill 

c 

3223 

l 

3224 

c 

205 


EVENT  10. 


3Z25 

C 

HHIHH 

3224 

C 

SPARE  AN  AIRCRAFT  -  EVENT  10. 

3227 

c 

'n'lf 

1000  CONTINUE 

3229 

c 

C 

C 

OtO© 

3231 

SEE  IF  A  SPARE  A/C  IS  AVAILABLE.  IF  SO  SCHEDULE  IT  TO  ARRIVE 

3232 

C 

AT  PREFLIGHT  AFTER  A  SHALL  DE.AT  ITIHE  TO  SWITCH  PILOTS.  ETC.) 

O 

Oi.00 

ni95)--0.0 

3234 

NSQ-ATRIB(l) 

3235 

NTK=ATRIB(12! 

3234 

NRP=NSQ*3*2 

3237 

c 

3238 

IFINNQ(NRP) .GT.0) THEN 

3239 

J=0 

3240 

1010 

IF(.J.EQ.NNO(NRP))GOTO  1030 

3241 

J  =  J  +  1 

3242 

IF (QSET ILOCAT ( J.NRP1+121 .NE.NTKtCOTO  1010 

3243 

e 

3244 

L  =  LOCAT (J.NRP) 

3245 

IF I LEVPRT .CE . 4 . AND . TNOW .GE.BPRT. AND . TNOW .LE.EPRT)  THEN 

3244 

PRINT*. »  SPARE  A/C  FOUND' 

3247 

PRINT*.'  TAIL  '.QSET(L+2)i'»  ASSIGNED  TO  HSN  '.ATRIBI44) 

3248 

ENDIF 

3249 

c 

3250 

XX  (95)  =  1.0 

3251 

CALL  RHOVE(J.NRP.A) 

3252 

DO  1020  I  =  31.47 

3253 

A(I)  =  ATRIBU) 

3254 

1020 

CONTINUE 

3255 

A (43)  =  0.0 

3254 

NACTTPE(NSQ.NTK)  =  NACTTPE(NSQ.NTK)  -  1 

3257 

CALL  SCHOLUhTR I AG(4.  >5.  .4. .3)  .A) 

3258 

1000 

CONTINUE 

3259 

ENDIF 

3240 

r 

\j 

3241 

RETURN 

3242 

c 

3243 

c 

3244 

3245 

c 

********* 

3244 

c 

FILE  SPARE  A/C  AT  HX  PREFLIGHT  -  EVENT  11. 

3247 

c 

********* 

3248 

c 

3249 

r 

0 

3270 

1100  CALL  FILEM <21 1 ATRIB) 

3271 

RETURN 

T'XTO 

JL!  u 

3273 

C 

END 

3274 

C 

m 


/ 


3279 

SUBROUTINE  ORC ANPT (PRIORTTiTANKS.DAT. FORKED » NSQ » FLTLDS » MF A ) 

3280 

COMMON  QSET(l) 

328 1 

COHMON/PFLAC/MAXPRT.LEVPRT.BPRT.EPRT 

ji.0  L 

c 

3283 

INTEGER  POINT(100).CREW(3) .FIRST, DAI. PILOT. PRIORTY (4), ACFOOL, 

3284 

i  NSET (11 .PL POOL 

3285 

LOGICAL  FORKED 

3284 

EQUIVALENCE  (N3ET(1> .QSET(l)) 

otb/ 

c 

3286 

c 

PRIORTT  IS  A  QUEUE  OF  SQUADRON  NUMBERS.  THE  FIRST  SQUADRON  TO  BE 

3289 

c 

CHECKED  TO  FORM  A  FLIGHT  IS  PRIORTT (lb  AND  SO  ON  TO  PRIORTT (4). 

329# 

A 

4/ 

3291 

c 

FORMED  IS  A  LOGICAL  VARIABLE  ; TRUE  OR  FALSE)  WHICH  TELLS  THE 

OL7t 

c 

EXECUTIVE  ROUTINE  IF  THE  FUNCTION  HAS  SUCCESSFUL  IN  FORMING  A  FLT 

3293 

r 

L 

3294 

C 

'ANKS  IS  THE  REQ'D  TANK  CONFIGURATION  FOR  THE  FLIGHT.  ALL  A/C 

3295 

0 

should  have  the  same  tank  configuration. 

3294 

c 

3297 

c 

NSQ  IS  THE  CURRENT  SQUADRON  BEING  EXAMINED*  AND  THE  ONE  SELECTED 

3298 

0 

IF  THE  ROUTINE  CAN  ORGANIZE  THE  PILOTS. 

3299 

c 

33## 

;n 

3301 

c 

3382 

* 

Flights  are  formed  bt  the  follohing  rules: 

3383 

w 

1.  A  SQUADRON  IS  FOUND  THAT  HAS  AT  LEAST  THREE  PILOTS  AND 

3304 

c 

AIRCRAFT  OF  iHE  DESIRED  TANK  CONFIGURATION. 

3305 

l 

2.  WITHIN  THAT  SQUADRON.  A  FLIGHT  LEAD  QUALIFIED  PILOT  IS 

3304 

L 

FOUND.  IF  NO  FLIGHT  LEAD  QUALIFIED  PILOT  IS  FOUND. 

3387 

C 

ANOTHER  SQUADRON  IS  SELECTED. 

3388 

c 

3.  NOW  TRT  TO  FIND  A  SECOND  FLIGHT  LEAD  QUALIFIED  PILOT.  IF 

3389 

c 

ONE  IS  FOUND.  THE  PILOT  GETS  A/C  3  IN  THE  FLIGHT.  IF 

3318 

c 

ONE  IS  NOT  LOCATED.  GET  A  NON-FLIGHT  LEAD  QUALIFIED  PILOT 

3311 

c 

AND  PLACE  HIM  IN  A/C  3. 

3312 

c 

4.  FOR  THE  SECOND  AIRCRAFT,  GET  A  NONQUALIFIED  PILOT. 

3313 

c 

IF  NONE  ARE  AVAILABLE.  USE  A  FLIGHT  LEAD  QUALIFIED  PILOT. 

3314 

u 

5.  IF  THE  FLIGHT  CAN  NOT  BE  FORMED  FROM  THIS  SQUADRON,  TRT 

3315 

c 

THE  NEXT  SQUADRON  UNTIL  ALL  HAVE  BEEN  EXAMINED  OR  A 

3314 

L 

FLIGHT  CAN  EE  FORMED. 

3317 

c 

3318 

c 

THE  AEOVE  RULES  IMPLY  THAT  A  CASE  2  FLIGHT  IS  PREFERRED, 

3319 

r> 

WITH  A  CASE  1  OR  CASE  3  BEING  FORMED  IF  CASE  2  IS  IMPOSSIBLE. 

3328 

r 

n. 

3321 

c 

THE  CASE  DEFINITIONS  ARE: 

3322 

fld  -  flight  lead  qualified 

3323 

c 

NFL  -  NON  FLIGHT  LEAD  QUALIFIED 

3324 

c 

3325 

c 

CASE  A/C  1  A/C  2  A/C  3 

3324 

r 

1  FLD  NFL  NFL 

3327 

C 

2  FLD  NFL  FLD 

3328 

c 

3  FLD  FLD  FLD 
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3330 

3331 

-■t'vvi 

0  jOL 

3333 

3334 

3335 
33  36 

■1^17 
J  jo  / 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 
3348 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 


C 

C  ADDITIONAL  RESTRICTIONS  ARE  ALSO  PLACED  ON  THE  SELECTION 

C  OF  A  PARTICULAR  PILOT  IF  ONE  OR  MORE  PILOTS  IN  A  SQUADRON 

C  READY  POOL  MEET  THE  ABOVE  CRITERIA.  THE  TIE  BREAKING  RULES 

C  ARE: 

C  1.  SELECT  THE  FIRST  QUALIFIED  PILOT  IN  THE  READY  POOL  THAT 

3  HAS  FLOWN  LESS  THAN  THREE  SORTIES  FOR  THE  DAY. 

C  2.  IF  ALL  HAVE  FLOWN  THREE  OR  MORE  SORTIES  FOR  THE  DA!. 

C  SELECT  THE  FIRST  ONE  IN  THE  READY  POOL. 

C 

C 

C 

C 

C  SET  UP  INITIAL  PARAMETERS. 

r 

V 

FORMED  =  .FALSE. 

C 

J  I 

100  CONTINUE 


SELECT  THE  SQUADRON  TO  BE  EXAMINED. 

NSQ  =  PRIORI  (Ji 

ACPOOL  =  NSQ*  3  -  2 

PLPOOL  =  NSQ*3  -  1 

mm$:  i 


L 

C 

c 


150 


C 

c 

c 

c 

c 


c 

c 

c 

c 


COUNT  THE  NUMBER  OF  AIRCRAFT  IN  THE  SELECTED  SQUADRON  WITH 
THE  CORRECT  CONFIGURATION . 

IF(NNQ (ACPOOL). GE. 3)  THEN 
DO  150  I  --  1 . NNQ (ACPOOL) 

IF (QSET (LOCAT ( I . ACPOOL ! + 1 2) . E3. TANKS ) NWTANKS=NWTANK$+ 1 
CONTINUE 
ENDIF 


IF  AT  LEAST  THREE  AIRCRAFT  AND  THREE  PILOTS.  TRY  TO  FORM 
A  FLIGHT. 

IFINWTANKS.GE. 3. AND. NNQ (PLPOOL) .GE.3)  THEN 

MAX  =  NNQ (PLPOOL) 

FLTLDS  -  2.2 
FORMED  =.TRU£. 


DISASSEMBLE  THE  PILOT  READY  POOL  FOR  CLOSER  EXAMINATION 
AND  REORGANIZATION  (IF  NECESSARY). 


3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 


DO  200  I  -  MAX # 1 » - 1 
CALL  ULINK(I.PLPOOL) 

POINT!  I)  =  UFA 
200  CONTINUE 

C 

C  GET  FIRST  CREW  MEMBER  -  PILOT  OF  A/C  1 

C 

CREW ( 1 )  =  0 

FIRST  =  0 

C 

I  =  1 

210  CONTINUE 

IF (GSET (POINT (II +3) .GE.l)  THEN 

IF ( 3SET (PO INT ( I ) +3+DAT ) . LT . 3)  THEN 
CREW ( 1 1  -  ; 

ELSE 

IFiFIRST.Ea.01  FIRST  =  I 
END  IF 
ENDIF 
1  =  1  +  1 

IFd.LE.MA/.ANO.CREWil) .EQ.0I  GO  TO  210 

C 

IF(CREWil) .EQ.0)  CREW ( 1 )  =  FIRST 

IF(CREW(1) .Efl.0)  FORMED  =  .FALSE. 

C 

C  FIND  SECOND  CREW  MEMBER  -  PILOT  OF  A/C  3 

C 

IF  (FORKED)  THEN 
CREUI3)  =  0 
FIRST  =  0 
PILOT  =  0 


( 


3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 


I  =  1 

230  CONTINUE 

IFil.NE.CREWi 1)1  THEN 

IF (QSET (POINTS I) 1+3. GE.ll  THEN 

IF(QSET (POINT ( 1 1+3+DAT ) . L T . 3 )  THEN 
CREW (3)  =  I 
ELSE 

IFiFIR$T,E8.01  FIRST  =  I 
ENDIF 
ELSE 

IF (PILOT, Ed. 0)  PILOT  =  I 
ENDIF 
ENDIF 
1  =  1  +  1 

IF (I.LE. MAX. AND. CREW (3)  .ES.0I  GO  TO  230 

IF(CREW(3).E8.0!  CREW(3)  =  FIRST 
IF(CREW(3).Ei.0l  THEN 


210 


3429 

3430 


3433 

3424 

3435 

343k 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 
344k 
3447 
3148 
3449 
3*50 
3451 
3152 
3453 
345' 
3455 
245k 
3457 
2458 
3459 
3440 
34k  1 

3462 

3463 

3464 

3465 

3446 

3447 
3468 
344? 

3470 

3471 

3472 

3473 
3471 
3475 

3474 
3477 
3174 


CRENI3)  =  PIlOT 
FlTLDS  --  1.0 
ENOIF 

IF  (CREW (3 )  ,£Q.0i  FORKED  --  .FALSE. 
ENDIF 

GET  THIRD  CREW  HEilBER  -  PILOT  OF  A/C  2 


220 


C 

C 


IF (FORMED  1  THEN 

CREW (2)  =  0 

FIRST  =  0 

FLTLD  r  0 

Three  =  0 

I  =  1 
CONTINUE 

I F { CREW < I ! . NE . I . AND . CREU ( 3 ! . NE . I!  THEN 
IFIuSET  (P0INT(I)-*3)  .tO.01  THEN 


IF<QS£T (POINT { n+3+Dflfl .LT.3)  THEN 
CfiEH(Z)  :  I 
ELSE 

IF (FIRST. EQ. 01  FIRST  =  I 
tNSIr 


ELSE 

IFIQSET (POINT (I 3+3+DAY 1 .LT.33  THEN 
iFIFL'LB.EQ.eiF  LTLD--I 
ELSE 

IF (THREE. EQ.0) THREE  =  I 
EKCIF 

c 

ENDIF 

c 

ENDIF 
I  =  I  +  t 

IF(I.LE.!tAX.AND.CREH(2!  .EC.0)  GO  TO  220 
C 

IF(CREW(2l.EQ.0i  CFEH(2)  =  FIRST 
I F  <  CREW ( 2  > .Efl.0'  HEN 
CR£y<2)  =  fuLD 
FLTLDS  ~  3.0 
ENDIF 

IF(CREN(2;.EO.0)  THEN 
CREW <21  *  THREE 
FLTLDS  =  3,0 
ENDIF 

IF < CREH ( 2 1.EQ.0) FORMED =. FALSE. 
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35  l  5 

SUBROUTINE  N I GHTPK ( NC ALLS » NPftRK . NT TPE ) 

3524 

c 

3527 

COMMON  QSET(l) 

35iid 

COMMON/PF-.AG/MAXPRT  1  LtVPft' .  BPRT .  Ef’ftT 

35Z9 

DIMENSION  NSET(l) tNPARK(4i50.21 tNTYPE(4.3t 

3530 

EQUIVALENCE  INSET ( 1 !. QSET ( 1 ) ) 

-;>  j  mj  i 

•■'.c 

V. 

•iJjL 

nn'v 

OJOO 

c 

PERFORM  THE  NIGHT  PARKING  ACTIVITY.  DOUBLE  UP  AIRCRAFT 

3534 

c 

IN  THE  SHELTERS  TILL  MORNING  (EXCEPT  'HE  QRA  SHELTERS). 

•JMC 

J  J  J  J 

c 

3534 

DO  100  I  --  1)4 

3537 

IF(NNG(I*3-2).NE.0>  THEN 

3538 

c 

3539 

NEEGIN  -  1 

3540 

If (NCALLS.CE.2)  NBECIN  =  NN3IH3-2) 

354! 

DO  200  J  =  NEEGIN )NNQ( 1*3-2! 

nci  'i 
j  J*L 

LOC  1  LOCAT  S.j>  1*3-2) 

35^3 

NSQ  =  QSET (LOC+1 ) 

3544 

IFISSETiLOC-3) .NE. 1)  THEN 

•':CiC 

3  J**  J 

K  -•  3 

•:-5^6 

2  20 

If  (K . GE .NTTPE (NSGi  1 ) )  GO  TO  i.60 

3547 

!•  =  K  +  i 

3548 

:'(NPAfiK!NS2)H,2UNE.0!  GO  TO  220 

2549 

r 

2550 

NPARK(NS3)Ki2)  -  QSET(L0C+2) 

355! 

3SET>'LOC+3l  *  1 

3552 

K  =  4 

•■^r  r*> 

-  J'w'O 

240 

IFIK.GE.5i)  GO  TO  240 

3554 

K  -  K  *  1 

3555 

IF .NPARk  (NSQiK)  1 )  .NE.3SET (LOC+2) )  i>0  TO  240 

3554 

NPARK<NSG)K)11  •  0 

3557 

240 

CONTINUE 

3558 

END  IF 

3559 

200 

CONTINUE 

3540 

p 

3541 

ENDIF 

5542 

100 

CONTINUE 

3543 

c 

3544 

RETURN 

3545 

END 

3544 

3547 

c 

3548 

c 

3549 

c 

3570 

p 

I 


1 

i 

I 

1 

l 

I 

I 


357; 

SUBROUTINE  ARASNCHINCSQ.NPARK) 

2572 

COMMON  QSET(i) 

3573 

COHNON/PFLAC/MAXPRTtLEVPRT.BPRT iEPRT 

3574 

INTEGER  NCSA ( 300 ) . NSET ( 1 ) , NPftRK ( 6 . 50. 2 ) .HARK ( 75 ) 

3575 

EQUIVALENCE  (NSET(l).QSET(l)) 

•^Cli 
j  J :  0 

C 

3  v  '  ! 

r 

3578 

r 

CHANGE  OVER  THE  QRA  AIRCRAFT  OF  THE  RESUPPLIED  SQUADRONS 

3579 

C 

3580 

DO  100  I  =  NNQ<19),1,-1 

3581 

MSQ  =  3SET(LOCAT(Iil9!+!) 

3582 

NTA1L  =  3SET (LOCAT  tl»l9)+2) 

3583 

lF(NNQ(NSA*3-2) .GT.0. AND. NSA.NE. NCSA (NTAIL) ) THEN 

3584 

CAlL  UL!NN<I,19! 

3585 

CAlL  lINK(NCSG(NTA!L)*3-2) 

3586 

JTAiL  =  QSETiL0CAT(NNA(NSA*3-2),NSA»3-2>+2! 

3587 

CALL  ULlNK(NNS(NSQt3-2) ,NSA*3-2) 

3588 

CALL  LINK  119) 

3589 

IFINPARKlNSAtl.i) .EQ. NTAIL)  NPARKlNSA.i.l)  =  JTAIl 

3590 

IF(NPARK;N$3.2,  1)  .tQ.NTAU  NPARK(NiAitil)  »  JTAIl 

3591 

IF (NPARK(NS3.3,1 ) .EA.NTAILS  NPARKINSA.3.1)  =  JTAIL 

3582 

DO  280  K  =  1.50 

3593 

Du  200  J  -  1.2 

3594 

IF (NPARK (NSA. K, t .EA. JTAIL)  NPARK(NSO.K.«i  =  NT  1 

3595 

200 

CONTINUE 

3596 

ENCIF 

3597 

100 

CONTINUE 

3598 

3599 

r 

3600 

CHANGE  OVER  THE  QRA  PILOTS  FOR  ALL  THE  SQUADRONS 

360! 

C 

3602 

DO  250  I  =  1.6 

360; 

K  =  0 

3601 

DO  300  3  =  1.NNQ120) 

3605 

NL  =  LOCAT (J, 20! 

3606 

If iQSET INL+1 ) .EA, i i THlN 

Ibtil 

K  -  K  *  1 

3608 

MARK  (K)  =  Nl 

3609 

ENDIF 

3610 

361 ; 

;6>Z 

m 

CONTINUE 

M  "  0 

;6 1  * 

IFINNAl 1*3-1). CT.0. AND. K.GT.0)THEN 

361 4 

DO  400  J  =  NNQi i*3-l I . 1 .-1 

3615 

NE*  =  lOCAT !J. 1+3-1) 

5616 

IF (ASET(NEN+3) . GE. 2.0. AND. M.LT.K) THEN 

3617 

ASET (NtN+3)  --  3.0 

361? 

MM 

361® 

QSET(MARK!M)*3)  =  2.0 

3620 

CAlL  UL INK ( -MARK (M) ,20) 

I 

214 


/ 


3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 
3638 

3631 

3632 

3633 

3634 

3635 

3636 


CALL  LINK (1*3-1! 

CALL  ULlNK  .'-NEW, 1*3-1) 
CAll  LINK (20) 

ENBIF 

488  CONTINUE 
END  IF 
258  CONTINUE 
C 
C 

RETURN 

END 

C 

C 

£ 

c 

c 
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SUBROUTINE  RESJPLT  (ACTIVE. NCSQ .L OSTFTLi i_IMI TfiC . REQSUPT •  THOU J 
COMMON  USETU) 

COHMON/PFLAC/MAXPRT.LEVF'RT  t  BPRTtEPfiT 

INTEGER  NOP£R(6),hiCSQ(300!,lOSTFTL(6! 

INTEGER  NSET(l) 

EQUIVALENCE  (NSET(l) .QSETil) ) 

LOGICAL  REQSUPY (41 .ACTIVE(6I 

00  50  i  :  1.6 
NOPtfidi  =  0 
REQSUPY  (I)  =  .false. 

50  CONTINUE 

DETERMINE  THE  TOTAL  NUMBER  OF  AIRCRAFT  PER  SQUADRON. 

DO  60  I  -  it 300 

IF(NCSQd)  .GT.0.AND.NCSQU!  .LE.tlTHEN 
NSQ  =  NCSQ(I) 

NOPER(NSQ)  -  N0PFR(NS8)  +  l 
c.NDir 

,'i  CQNTIfibt 

IF  (LEv'PRT.GE.S.AND.TNON.GE.BPRT.ANO.TNOU.LE.EPRTiTHEN 
PRINT*. f -A/C  OPERATIONAL  BY  S3BN:  ’ . (NGPERiS>,I=1.6! 

mi  f 


CHECK  T0  SEE  IF  ALL  SQUADRONS  IN  A  WING  HAVE  ENOUGH  AIR¬ 
CRAFT  BETWEEN  THEN  TO  FORM  A  FLIGHT. 

NBEGIN  =  I 
NSTOP  =  6 

I F  ( NOPER  i  1 ) +NOPER  ( 2 )  +NOPER  <  3 ) .  LT .  i.  I M I T  AC )  'HEN 
IF  (ACTIVE  ( 1  > )  SEQSUPrUS  *  .TRUE. 

IF (ACTIVE (25 J  REGSUPY(2)  =  .TRUE. 

IF  (ACTIVEX! !  REQSUPY (3)  =  .TRUE. 

NBEGIN  =  4 
END  IF 

IF(NOPFR(4)+NOFER(5)+NOPERi6).LMI«ITACI  THEN 
I F  i  ACT  I VE (4) 5  RE3SUPYI4)  =  .TRUE. 

IFiftCTIVtiS))  REQSUPY (5)  =  .TRUE. 

IF(flCTIVE(6))  REQSUPY (61  -  .TRUE. 

NSTOP  -  3 
END  IF 

DO  100  I  =  NBEGIN. NSTOP 

I F (LEVPR  r .GE . 3. AND . TNOW .GE.BPRT.AND. TNOW .LE.EPRT) THEN 
PRINT*, '-PROCESSING  SQDN  M 


W  «****»-  •  -**,**-  •  V 


3687 

3688 

3689 

3690 

3691 
3698 
3693 


ENBIF 

C 

IF  tNOPER  1 1 > . LT . LIMI TAC . AMO . ftCT I VE ( I > 1 THEN 

C 

I F  (LE  VPRT .  GE .  3 .  AND .  TNOtJ .  Ct .  EPRT .  AND .  ThOW .  LE .  EPRT)  THEN 
PRINT*, '-RESUPPLY  SQDN  M 
ENDIF 

C 


1  •  "C 

:-o?  j 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

ill  L 

3713 

3714 

3715 

3716 

■171  7 
■ill! 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 


C 

c 


c 

c 

c 

c 

0 

c 

c 

c 

c 

c 

c 

u 

c 

c 

c 


REQSUPYdi  =  .TRUE. 

DETERMINE  THE  SISTER  SQUADRONS  OF  SQUADRON  I 
NSQ1  1  +  (I/4)#3 

IFd.EQ.l.OR.l.EQ.4)  NSQ1  --  2  +  (1/61  *3 
NSQ2  =  3  +  (1/41*3 

IFd.EQ,3.0R.I.E8.6)  NSQ2  -  2  +  d/4)*3 
CALCULATE  THE  NUMBER  OF  AIRCRAFT  THE  SISTER  SQUADRONS 
REQUIRE  70  BECOME  OPERATIONAL  (NOPER.GE.LIMITAC)  IF  THE 
SISTER  SQUADRON  IS  NOT  BEING  RESUPPLIED. 

NREQl  =  NAX(0, LIMIT, ‘C-NOPER(NSQl) ) 

NREQ2  --  MAXi0,LIMITAC-NOPER(N$Q2>) 

NCNT  =  0 
MOVE i  -  0 
H0VE2  =  0 


IF  A  SQUADRON  REQUIRES  RESUPPLY,  ITS  ARCRAFT  ARE  FARMED 
O'JT  TO  ITS  SISTER  SQUADRONS  ACCORDING  TO  THE  FOLLOWING 
RULES  (UNLESS  ONE  OF  THE  SISTER  SQUADRONS  IS  ALSO  BEING 
RESUPPLIED,  IN  WHICH  CASE,  ALL  THE  AIRCRAFT  ARE  FARMED 
TO  THE  OTHER  SISTER  SQUADRON) : 

1.  IF  THE  SECOND  SISTER  SQUADRON  IS  NOT  OPERATIONAL 
(NOPER  <  LIMITAC),  THEN  IT  RECEIVES  AIRCRAFT  UNTL 
IT  IS  AT  OPERATIONAL  STRENGTH. 

2.  THE  FIRST  SISTER  SQUADRON  IS  THEN  BROUGHT  UP  TO 
STRENGTH. 

3.  THE  TWO  SISTER  SQUADRONS  ARE  BROUGHT  UP  TO  EQUAiL 
NUMBERS,  AS  LONG  AS  THEIR  ARE  STILL  AIRCRAFT. 

4.  FINALLY,  IF  ANY  AIRCRAFT  ARE  LEFT,  THEY  ARE  DISTRIB¬ 
UTED  EQUALLY  BETWEEN  THE  TWO  SISTER  SQUADRONS. 

DO  200  J  --  1,300 
IF(NCSQ(J) ,E3.I)  THEN 

IF (REQSUPT (NS01 > 1  THEN 
NEXT  =  NSQ2 

ELSEIF (REQSUPT (NSQ2) ) THEN 
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NEXT  =  NSQ1 

ELSE I F ( MOVE  2 . LT . NRCQZ ! THEM 
NEXT  =  NSQZ 

ELSEIFIHOVEI.LT. NREQDTHEN 
NEXT  =  NS01 

ELSE  IF  (NGPERiNSQll .LT.NOPER !NSQ2) )  THEN 
NEXT  =  NSQ1 
ELSE 

NEXT  =  NSQ2 
ENDIF 

NCSQU)  -  NEXT 

NGPER(NEXT)  =  NCPER(NEXT)  *  ; 

NOPER(I)  =  NOPESdi  -  l 
IFiNEXT.EQ.NSaiiHOVEl  =  M0VE1  +  1 
IF(NEX'.EQ.N$QZ)H0Vt2  =  H0VE2  +  1 

ENDIF 

CONTINUE 

IF !  LEVPR r . CE . 3 . AND . TNOW .  GE . BPRT . AND . TNOH .  LE . EPRT ) THEN 
PRINT** ? -A/C  AFTER  RE'UPPT  OF  IS  (NOPER(J)  .J-'l.S) 
ENDIF 

MOVE  A/C  FROM  ONE  POOL  TO  ANOTHER 

DC  300  0  =  NN] ( 1*3-2) *  1 » - 1 

NTAIL  =  ASET (LOCAT (J. 1*3-21+2) 

CALL  ULINKXJ, 1*3-2) 

IF (NCSQ (NTAIL) .EQ.NSQl)  THEN 
CALL  LINK (NSQl*3-2) 

ELSE 

CALL  LINK (N3Q2*3- 2 ) 

ENDIF 

CONTINUE 


NEXT,  FARH  OUT  THE  PILOTS.  EACh  SISTER  SQUADRON  GETS  ITS 

Flight  leads  replaced  bt  squadron  i  <as  long  as  squadron 

I  HAS  SOME).  AFTER  THE  FLIGHT  LEADS  ARE  FARMED  OUT,  EACH 
SISTER  SQUADRON  RECEIVES  AS  MANX  TOTAL  PILOTS  FROM  SQUAD¬ 
RON  I  AS  THEY  RECEIVED  AIRCRAFT.  THE  REMAINING  PILOTS 
BECOME  PART  OF  THE  REPLACEMENT  SQUADRON. 

NPL1  =  LOSTFTL(NSQl) 

NPLZ  =  lOSTFTL(NSQZ) 


IF (NPL2.GT.NPL1 )  THEN 


3787 

3788 

3788 

379# 

3791 

379Z 

3793 

3794 

3795 
379  6 

3797 

3798 

3799 
3808 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 
8823 

3824 

3825 

3826 

3827 


cEN  =  HIN(NPL2-NPL1.H0VE2I 
J  --  NNOt 1*3-1! 

400  IFU.LE.0, OR. LEN.ES. 0!  GO  TO  500 

IF (QSET (LOCflT (J,  1*3-1 ! +3J .GE.l)  THEN 
aSET(L0CAT(J,i*3-mii  =  NSQ2 
CALL  UL INK (J* 1*3-1! 

CAL.  LINK ( NSQ2*3- 1 ) 

MOVE 2  =  N0VE2  -  1 
LEN  r  LEN  -  1 
ENDIF 
J  =  -j  -  1 
CO  TO  400 
500  CONTINUE 

L 

ELSEIFiNFLl.GT.NPL2)  HEN 
C 

LEN  =  MININPL1  -NPL2.  MOVED 
J  =NNQ( 1*3-1) 

600  IFU.lE.0.OR.lEN.EQ.0!  GO  TO  700 

!F(QS£T(LOCAT(.JtI*3-ii»3)  .Ct.  li  HEN 
GS£TlLOCAT(J,l*3-lM)  =  NSQl 
CAL-  UlINKU.  1*3-1) 

CAL.  LINK (NSQ1*3- 1 ) 

MOVE!  =  M0VE1  -  1 
LEN  =  LEN  -  1 
ENDIF 

0  =  • j  "  i 

GO  TO  600 
700  CONTINUE 

C 

ENDIF 

C 

•J  :  NN«{  1*3-1) 

800  IH.J.LE.0.OR.MOVE2.LE.0IGOTO  900 

M0VE2  =  MOVE2  -  1 
QSET (LuCAT (J» 1*3- 1 )+ 1 )  r  NS^Z 
CALL  ULINKIJt 1*3-1) 

CALL  LINKIN$Q2*3-i> 

J  =  J  -  1 

GOTO  800 
900  CONTINUE 


3828 

3S29 

3830 

3831 

3832 

3833 

3834 

3835 

3836 


■J  =  NNQl  1*3-1) 

IF(J.LE.0.OR.MOVE1.LE.0!GOTO  1100 
MOVE!  =  M0VE1  -  l 
QSET (LOCAT ( J* 1*3-11+1)  =  NSQ1 
CALL  ULINKU. 1*3-1) 

CALL  LINK <NSQ1*3-1 ) 

d  -  0  -  1 

GOTO  1000 
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> wivaiw  *  1 1 1  m  uuwjyjjQBRjaipn'tm 


m 


3837 

i 

100  CON' 

3838 

C 

3839 

END  IF 

3840 

100 

CONTINUE 

3841 

c 

3642 

RETURN 

3843 

END 

3844 

c 

3845 

c 

3846 

c 

3847 

c 

in 


38  46 

SUBROUTINE  RECONFC ( IHITAC . MAXCONF . MftCTTPE t«AVAIL» THOU! 

3849 

COMMON  QSETii) 

3858 

COMMON/PFLAC/ MAXPRT  .LEVPRT iBPRT.EFRT 

3851 

c 

3852 

DIMENSION  NSETd)  .NCUH (7) .NWANT (3) .INITAC (3)  t  INITSQ(3)  .HAXC0NF(6) 

3853 

t,NACnPE(6»3).NAVAIL(6l 

3854 

EQUIVALENCE  (NSETd). aSET(l)) 

3855 

3858 

c 

AIRCRAFT  ARE  RECONFIGURED  FOR  THE  NEXT  DAT  ACCORDING  TO  THE 

3857 

i* 

INITIAL  CONFIGURATION  RATIOS.  INITAC.  SET  BT  THE  USER. 

3858 

r 

V, 

ADDITIONALLY .  ALL  THE  AIRCRAFT  IN  A  PARTICULAR  SQUADRON  ARE 

3859 

c 

CONFIGURED  THE  SAME. 

3888 

c 

3881 

c 

3882 

c 

DETERMINE  THE  NUMBER  OF  AIRCRAFT  PER  CONFIGURATION. 

3883 

3884 

NCUMd)  *  0 

3885 

DO  100  I  =  2.7 

3888 

NCUM(I)  =  NCUMd- i )  +  NAVAILC-U 

3887 

100 

CONTINUE 

3888 

INITRDT  =  INITAC(l)  +  INITACC2)  +  INITACOI 

3889 

DO  200  I  =  1.3 

3870 

nuant (i>  =  float i initac  d )  i /float  unitrdy ; afloat (ncum(7) 1+0.5 

3871 

INI TSQ < I )  -  0 

3872 

200 

CONTINUE 

3873 

C 

3874 

iF<LEV?RT.GE.3.AND.TN0W.GE.BPRT.AN0.TN0W.LE.EPRT)THEN 

3875 

PRINT*- ’ -NUMBER  OF  A/C  WANTED  PER  CONFIGURATION  (3.2.1):  ’ 

JO  It 

PRINT*.’  ! > (NWANT (I) .1-3.1 .-1) 

3877 

ENDIF 

3878 

c 

3879 

c 

3880 

c 

DETERMINE  THE  NUMBER  OF  SQUADRONS  PER  CONFIGURATION. 

3881 

V 

3882 

K  =  2 

3883 

300 

IF (NWANT (3) .LE.NCUN (K! S  GO  TO  400 

3884 

K  =  K  +  1 

3885 

INITSQ (3)  --  INITSQ(3)  +  1 

3888 

IF (K.LE.7)  CO  TO  300 

3887 

400 

IF (K . LE . 7 . AND . NWANT (3) +NWANT (2) .LE.NCUM(K) )  GO  TO  500 

3888 

K  =  K  +  1 

3889 

INITSO(t)  =  INITSQ(Z)  +  1 

3890 

IF (K.LE.7)  CO  TO  400 

3891 

500 

INITSQ ( 1 )  =  8  -  INITSQ (3)  -  INITSQ(2) 

3892 

C 

3893 

IF(LEVPRT.CE.3.AND.TNQU.GE.BPRT.AND.TN0W.LE.EPRT)THEN 

3894 

PRINT*. ’-NUMBER  OF  SQDN  REQ  PER  CONFIGURATION  (3.2.1):  ' 

3895 

PRINT*.'  *, INITSQ (3) . INITSQ (2) t INITSQ ( 1 > 

3898 

ENDIF 

3897 

c 

3896 

C 

3899 

c 

RECONFIGURE  TH£  AIRCRAFT. 

3908 

C 

3901 

DO  600  I  -  Ii4 

3902 

HAXCONF  (I)  =  1 

3903 

IF(I.LE.INI1SQ(2)+INITSQ(3I )  NAXCONFd!  =  2 

390* 

IF(I.LE.INITSQ(3) )  NAXCONFd)  =  3 

3905 

DO  620  J  =  1.3 

3906 

NACTTPE(I.o)  =  0 

3907 

620 

CONTINUE 

3908 

NACTYPE (I .MAXCONF (1) )  =  NNQ(I»3-21 

3909 

DO  640  J  =  1 . MNQ  <  1*3-2) 

3910 

QSET  (LOCAT  <J 1 1*3-2)  +  121  =  HAXCONFd) 

3911 

640 

CONTINUE 

3912 

600 

CONTINUE 

3913 

C 

3914 

IF(LEVPRT.CE.3.AND.TN0N.GE.BPRT.AND.TN0W.LE.EPRT!THEN 

3915 

PRINT*. ’-NAXINUN  CONFIGURATION  EX  SQUADRON:  ' 

3916 

PRINT# , »  ' ,  (P1AXCONF ( I )  >1  =  1.6) 

3917 
•3  0 1  c> 

f 

ENDIF 

oVib 

2919 

RETURN 

3920 

END 

Appendix  C.  .\otes  to  tstr^ 


Introduction 


This  appendix  has  been  included  to  assist  a  user  in 


providing 

va 

lues  tor  several  of 

the  more  complicated 

variables 

i  n 

Subroutiuco  1 N  T  L  c 

a  n d  L S L i(I  • 

There  is  no 

intention 

i  u 

these  notes  to  include  i n i o  r  m 

jtion  presets 

t  e  ci 

e Iso wh ere 

i  n 

chapters  I  through 

IV,  and  A  p 

P endix  A  a  n  d 

b . 

da t  be  r  .  t  h 

i  u 

0uide  will  expand 

on  previous 

1 >  covered 

material  a 

iui 

p;  o  into  renter  de 

p  t  h  where  r 

e  q  u  t  r  e  d  L  o  a 

ss  i  s  L 

the  u&er  i 

n 

specifying ■ 

(1)  F  r  a  g ...  e  n  t  a  r  y  order  variables 

(2)  mission  variables 

(3)  maintenance  failure  variables 

(4)  Crash/ low  decision  matrices 

(5)  Airfield  facility  com  position /definition 
(0)  Settings  for  the  Master  Clock 

Of  necessity,  some  variables  are  less  well  defined  than 
others  in  the  comments  in  Subroutines  1NTLC  and  C  Still, 
these  notes  will  clarify  those  variables  when  used  in 


conjunction  with  Annex  a. 


These  notes  conclude  with 


comments  o  n  coni  put  or  run  cicte  and  a  sample  Cud  66U0  day 
l  i  L  e  .  All  line  nuuucr  references  in  t  h  i  a  t,  u  i  d  e  are  to 
Appendix  d  unless  otherwise  stated. 

itie  fragmentary  Ur  her 

The  fra^  order  requires  lour  variables  he  defined.  The 
variables  are  inputs  to  the  Scheduler  (Event  3).  Sortie 
rates  are  input  to  Data  Statement  s.tATc  .  by  day.  lour  to 
Appendix  u,  pap;e  131  for  all  variables  in  this  discussion. 

Cables  are  only  flown  to  Area  3.  If  p  a00ies  are 
desired  to  area  i  specify  ^aijt;les  and  uivc  all  the  Area  3 
Mission  variables  the  same  values  and  probabilities  as  area 
l .  The  percentage  of  sorties  desired  to  each  area  is 
^peciiieu  in  Data  St.  a  Cement  REQi’CT .  itiese  values  ^ivc  the 
Scheuuler  a  target  to  snoot  for. 

* ,  i  til  the  sortie  rates,  area  percentages,  anu  size  oi 
u  a  tuples  deoired,  the  reuuiuJcr  of  the  information  is 
straightforward.  uata  Statement  KGuuLt.  is  specified  u  s  i  u  0 
tlie  nur-iber  of  flights  desired  in  up  to  two  ^.a^glcs  ^er  day. 
as  an  example ,  lines  64  and  66  show  b  and  8  for  bay  1  only. 
Ih  is  it  cans  two  ya^p,les  of  8  three-  ships  are  desired  on  bay  1 
only.  normally,  a  p,  a  ,3 1>  1 e  launch  requires  a  special  effort 
in  the  real  world  and  there  is  a  delay  Lime  before  sorties 
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1 

a  unci)  in  ^  a  0  ala  iu 

a 

steady 

t  1  o  w  . 

Tills 

is  a  p  c  c i  lied 

a 

bldltwicnt  L)  E  L  Y  y 

1 

i  ill’s  71 

and  73 

(zero 

delay  may  b  e 

specified)  .  i'li  e  values  are  in  minutes.  if  no  are 

ji'jiruJ  ,  i  nput  ic  roj  in  . .  C  A  <J  L  H  . 

u a  t  •»  Statement  1  A  I T A C  also  has  u  1  e  f  t-handeu  influence 
on  the  Scheduler.  Aircraft  are  configured  in  the  uijht 
routines  ba^ed  on  the  numbers  in  lAITAe.  l:sinu  the  input 
values,  the  cod  ini;  decides  how  many  squadrons  to  configure 
tor  areas  3.  2,  and  1,  in  order.  A  clever  user  can  approach 

jii.ulatiR,,  uainU  nance  turnaround  scheduling  by  playin0  with 
the  nu  .a  be  r  s  •  If  both  jaqqles  are  desired  back,  to  back  in 
the  .:ornin0  ,  then  euoujii  ore-  3  conf  inured  aircraft  must  be 
specif  ieo  in  1  A  1 T  A  0  to  .n  e  e  t  t  he  requirement.  Otherwise 
turnaround  comes  into  play  and  the  simulation  g  e  a  1 s  with 
i.uiliUcnance  L y  i> <a  scheduling. 

. .  i s  s i o n  Variables 

Duration  times  are  at  lines  104  Lo  100  and  are 
triangular  (  ..ilnlinuu  ,  most  likely,  i.ia  x  i  sun  )  •  These  values 
are  straightforward  ,  as  are  attrition  rates,  lines  113  to 
lib.  Sensitivity  analysis  should  be  reviewed  for  attrition 
rates-  Similarly,  tank  jettison  is  at  lines  121  to  125. 
ordnance  probabilities  are  at  lines  4t>2  to  4  SO.  They  are 
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£ 


a  , ,  . ,  r  c  /  a  t 

e  1 

o  v  e  r 

Lite  entire  theater,  and 

<1 

i..  a  cru  v  i  L*  w 

po  i  ll  t 

■  mil  be 

a  a 

a  p  t  n  J 

to  set  Lite  t.i.  tor  cxatp 

1  U  , 

r  *>  .  .  j  i\  l  i*  i 

O  It  e 

a^riuit 

0  Li 

V  a  1  u  e 

It  e  n  act  at  1  .  < ;  ,  i  L 

i  a 

a  b  ia  a  ..i  C  U  k*  li 

a  t  L  L  • 

,  t 

..ill  a  1 

a  a  >  a 

it  e  i.i  a  .1  c 

L  O 

lU’O, 

a  r  u  e  t  t  i  a  O  It  .  flic 

n  ,  in 

a  :  r  c  r  a  f 

t  re 

l  it  r  .1  i-  1  t  i 

•)  O 

4  :  v,  ri 

i  a  cue  Lo  a  ...i  !  1  UI: 

t:  t  i  • j  n 

CaH  o  It  1 

J  ;,'! 

1 1 u  n c  t  ion 

i  t 

i  t 

.a  u  b  e  i  .  .1  t  l  1  f  c 

tl  ■  vi  t ,  c 

a  a  .i.  a  > ,  c 

1  e  v  e 

1  t  r  o  b  a  h  i 

lit 

i  o  a 

art  at  li:te  i  <, 

491. 

. .  a  i  rt  l  o  n  u  n  c  e  Fa  ilur a  a 


IiuroJactiun  .  ,,  u  F  nnnaucc  failures,  occur  when  ..  lu  F 

ox  coot:,  the  current  value  oi  total  engine  runniii;;  time, 
inis  will  occur  .*  t  att  update  ,.oint  following  an  activity 
where  the  aircraft  cit  nine  wa  t»  running,  a  a  ,tr«vioublj 
a  e  a  c  r  i  it  e  c  in  chapter  Ill. 

C  c  v  el  u  l  !•’ ilurc.  io  deter...  ine  the  level  ui  lailurc 
t  lie  codin,,  use  a  Lite  cu.r.  ulal  ivo  probabilities  i  it  line  a  a  15  to 
bio  . 

.J  a  t  a  a  t  a  t  Oil  e  u  t  a  *1  S  T  0  1.  .  .\  s  j  a  t  e ...  i...i  y  a  i  3  o  lull  if  a  It 

aircraft  i  a  delayed  at  r  e  t  1  i it  t  ■  Data  Stalaijant  S  Y  S  J  0  L 
allows  the  user  to  specily  t  he  it  u ...  b  l  r  of  ainutuo  away  trow 
lailurc  a  s/a  tea  can  be  when  it  i  b  considered  broken  at 
pref  1  i^iit  .  for  exa;«,.le  ,  tlie  b.u  values  in  line  533  wean 


that  if  a 


j  jf  L  O  ill  ii  J  S 


equal  to  or  1 e  a  b 


than  5.0  diiiutes  to 


failure,  it.  will  tail  at  ,>  r  o  £  1  i  j  ti  t  delay. 


Data  Statement  NbuTkliP .  ..'hen  aircraft  incur  batllu 


da  1.1  ay,  e  (At  tribute  (lb))  on  a  mission  and  aubsequuntl ;  return 
to  base,  a  d  e  t  e  rta  i  n  a  t  i  o  n  is  made  as  to  whether  they  are 
repairable  (node  b<\UA,  Appendix  a,  paqe  lu2).  Level  lour 
and  live  battle  damage  were  conceptually  considered 
unrepairable  at  the  local  level.  This  is  shown  in  line  344 
by  the  999999s  in  tne  fourth  and  fifth  places  of  i.sATKiiP  . 
LlVl  L  1.  2.  and  3  Jaaapu  is  converted  to  a  user  specified 

equivalent  ..iai  n  t  e  na  lie  e  failure  code  found  in  AsATnLP .  Afte 
the  equivalent  code  is  set,  it  is  combined  with  the  current 
aircraft  lailure  coce.  Ibis  is  done  di^it  by  dijit  ,  usin0 
the  highest  value  oi  either  code  in  each  ai„it  .  Tlie 
aircraft  then  is  processed  into  maintenance.  aircraft  with 
a  993999  value  are  conceptual ly  considered  to  ue  awaitiu0 
depot  level  repair  when  available.  1  lie  9  99999  aircraft  are 
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times  are  set  in  lines  361  to  387.  ,  .AT  service  times  are 

speciiieJ  between  lines  4U2  and  413.  between  lines  391  anJ 
d9o  are  interference  times  which  are  added  to  wi  ii{j  service 
when  a  single  shop  is  repairing  two  systems  concurrently  as 


can  happen  in  shops  1  and  3. 


between  lines  41b  and  42a 


■wi  ■  jiiim 


iutorfurtiicu  tliiea  art,  jjJcciiieJ  i'or  squadron  repairs. 

These  are  added  lor  initrf  ertiice  in  concurrtui  aervice. 

aean  Time  ue  tween  failure  (iJTut )  .  The  values  lor  ..Ti;r 
are  input  in  Subroutine  US  till  I  ,  at  line  130.  These  valuco 
an  ouid  be  us  car  etui  ij  clio  a  on  a  a  possible  ,  and  sensitivity 
analysis  should  be  per lorued  on  this  aet  oi  variables. 

seta  Distribution  shape  Parameters.  The  u»e  oi  the 
shape  parameters  in  calculating  i.TOr  Was  covered  in  chapter 
111.  The  process  for  determining  the  seta  distribution 
shape  parameters  consists  of  four  steps. 

(1)  The  user  m usl  form  an  opinion  of  the  reliability 
of  each  system. 

(2)  The  user  should  study  histograms ,  or  curves,  of 
the  seta  distribution  with  various  parameters,  to 
select  a  set  of  pa  raue  tors  for  each  system.  file 
parameters  should  reflect  the  user's  view  of  the 
reliability  of  the  particular  system. 

(3)  The  user  should  0en crate  a  series  of  h i s t o a r an o  , 

or  curves,  around  these  parameters  to  insure  the  shapes 
are  really  what  is  oesireu,  and  to  inaure  the  shapes 
reflect  the  user's  opinion  of  the  relative  reliability 
of  t  lie  a  y  s  t  e.is  . 

(4)  The  user  should  use  the  parameters  selected  for 
each  system  as  inputs  to  Data  Statements  nLP  and 
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sET  at  linos,  132  and  134. 

such  of  the  steps  is  relatively  self-explanatory, 
however  a  short  recap  io  probably  useful.  forming  un 
opinion  of  reliablity  requires  that  opinions  be  in  a  d  c 
explicit  —  not  implicit.  The  shape  of  tne  curve  will 
identify  the  biases.  Hi  uses  are  tine  —  as  lon0  as  they  .ire 
explicit  and  sensitivity  analysis  i.uiy  be  performed. 

using  the  SLA.T  program  in  Figure  C.l,  sets  of  sai.iple 
histograms  were  generated.  In  this  case,  histograms  lor  the 
10  SLAIi  random  number  streams  were  generated  tor  the  thru., 
.•»LPiiA  and  libT.V  pairs  (  5 . 0  .  1  .  5  )  .  (  3  .  U  ,  1  .  i> )  ,  and  (  4 . 0 , 2  .  u  )  . 
This  is  the  T a wily  of  pa  raw eters  use a  in  the  analysis  in 
this  document.  The  results  are  presented  in  Figure  C.2. 

This  family  of  ana p e  parameters  represented  the 
authors'  beliefs  in  the  systems'  reliabilities.  The  family 
of  parameters  boiled  down  to  three  cases.  Case  I  was  most 
reliable  (  aL Ph <i  =  5.U,  a  L  T  A  =  1.5).  The  curve  is  shaped 
skewed,  or  humped,  to  the  right.  .  ioot  iaiiures  occur  in  a 
ran_,e  around  or  near  the  liTSF.  See  Figures  C.2.1  and  C.2.2. 

ease  II  is  slightly  less  reliable  ( aLPUa  =  4.0,  a  II T  A  = 

2  0).  file  right  skew  is  not  so  pronounced.  See  Figures 
e.2.3  and  C.2.4.  Case  ill  is  least  reliable  (uLPuA  =  3.U, 
“id"  =  1.3).  The  shape-  is  tending  toward  normality.  See 

t  i  ;  u  r  e  s  C  .  2  -  5  and  w  .  2  .  b  .  defer  to  Annex  A  for  further 
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.*  SLAM  STATEMENTS  USED  TO  GENERATE  THE  BETA  HISTOGRAMS. 


RWH,CM15M88,T188, 10298.  T888845,MANN,B0X45M,AFIT,AFIT,AFIT,91,91,91 
ATTACH.  PROCFIL,  1D=A81«171  ,SN=ASDAD. 

BEGIN. NOSFILE. 

GET  >  BETABIN. ID-COVET . 

REWIND. BETABIN. 

ATTACH . PROCFIL, SLAMPROC . ID=AFIT. 

BEGIN. SLAM,  ,N=B£TABIN,PL=188888. 

*EOR 

GEN, SLMBETA, MANN  &  SHOOK  91  AFtT, 1/8/82. 3. YES.NO.YES.NO.NO; 

LIMITS,  8.1.1M! 

NETWORK! 

CREATE,.  1„.  IMS.  1! 

ASSIGN, ATRIB(l)  =  USERF(l)! 

TERMINATE! 

ENDNETWORK! 

INIT.8,588! 

INTLC.XX (1)=5»KX(2)=1.5! 

SIMULATE! 

INTLC.XX (1) =3,  XX  (21=1.5! 

SIMULATE! 

INTLC.XX  <11=4»XX(21=2! 

FIN! 


C  THE  FOLLOWING  FORTRAN  SUPPLIMENTS  THE  ABOVE  SLAM  TO  PRODUCE 

C  THE  HISTOGRAMS  OF  THE  BETA  DISTRIBUTIONS. 


SUBROUTINE  INTLC 

COHMON/D/NCNT,  OATHS,  IMS) 

NCNT  -  S 

RETURN 

END 


FUNCTION  USERF(IFN) 

COMMON / SCOM 1 / ATR I B ( 1 SS > , DO  < 1 SS ) , DDL ( 1 00 ) , DTNOW » 1 1 , MFA , MSTOP » NCLNR 
& ,  NCRDR ,  NPRNT ,  NNRUN ,  NNSET .  NTAPE ,  SS  ( 1 9S 1 ,  SSL  ( 1 98  > ,  TNE  XT ,  TNOW ,  X  X  ( 1SS ) 
COMMON /D /NCNT .DAT ( IS, 1998) 

USERF  =  S.S 
NCNT  =  NCNT  +  1 
DO  1M  I  *  1,19 

DAT  (I, NCNT)  -  BETA<XX<t),XX<2),I) 

199  CONTINUE 
RETURN 
END 


Fig.  C . 1 • 1  Beta  Histogram  Generation  Program 
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SUBROUTINE  OTPUT 

COHHON/SCOR1  /ATRIB  <  !•#)  t  DO ( 1M)  >  DDL <  110 )  > DTNOU » 1 1  tHFA>  HSTOP  tttCLNR 
4 iNCRDR i NPRNT .NNRUN .NNSET .NTAPE . SS ( 1ft ) . SSL ( If 0) . TNEXT .  TNOU  >  I X  ( 1 10 ) 
COHHON/D/NCNTtDAT (l#t 1111! 

INTEGER  NUN (21) 

CHARACTER  0UTU5I) 

DO  If  K  =  l.lf 
PRINT  U»K.XX(1).XX12) 

11  FORMAT  I  ’  1 ' . '  GRAPH  OF  STREAK  M2.’  ALPHA  ’iF4.1i 

4  ’  BETA  ’.F4.1) 

PRINT*. 

PRINT*. 

DO  SB  1  =  1.21 
NUH(I)  =  f 
50  CONTINUE 

DO  Iff  i  =  l.lfff 

INDEX  -  DAT (K.I)*2f  *  1 
IF ( INDEX .GT .21 > INDEX  =  21 
NUHI INDEX)  =  NUN! INDEX)  *  1 
Iff  CONTINUE 

DO  150  I  =  1.21 

LINE  =  NUH ( I ) / 4 
DO  200  J  --  1.50 
OUTL(J)  -  >  > 

200  CONTINUE 

IF(LINE.GT.5f)THEN 
LINE  =  49 
OUTL (50)  *  »♦» 

END  IF 

DO  250  J  =  l.LINE 


OUTL(J)  =  '*' 


Fig.  C.1.2  Beta  Histogram  Generation  Program 
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GRAPH  OF  STREAK  7  ALPHA  5.0  BETA  1.5 
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Fig.  C.2.1  Case  I  Histogram 
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GRAPH  OF  STREAM  8  ALPHA  5.1  BETA  1.5 
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Fig.  C.2.2  Case  I  Histogram 


1  GRAPH  OF  STREAK  7  ALPHA  4.0  BETA  2.0 


{ 

0) 

! 

( 

01 

I 

( 

1) 

I 

1 

3) 

I 

( 

12) 

I 

( 

17) 

1 

tttt 

{ 

16) 

1 

***« 

( 

35) 

I 

******** 

( 

45) 

1 

*********** 

( 

63) 

I 

********<****** 

( 

63) 

1 

************«*< 

( 

84) 

1 

********************* 

( 

88) 

I 

********* ************* 

{  103) 

I 

************************* 

( 

104) 

I 

44*«**4*«f «*«*** t**444«*4* 

< 

94) 

I 

***t**44**H***«*4*t*«* 

( 

101) 

I 

************************* 

1 

92) 

I 

*********************** 

( 

57) 

I 

************** 

( 

22) 

1 

***** 

( 

0) 

1 

X 

4  200 


Fig.  C.2.3  Case  II  Histogram 
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CRAPH  OF  STREAM  8  ALPHA  4.1  BETA  2.0 
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Fig.  C.2.4  Case  II  Histogram 
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GRAPH  OF  STREAM  7  ALPHA  3.1  BETA  1.5 
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Fig.  C.2.5  Case  iUHistogram 
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GRAPH  OF  STREAM  6  ALPHA  3.«  BETA  1.5 
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Fig.  C.2.6  Case  III  Histogram 
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Once  tentative  shape  parameters  have  been  selected  a 
fa  »i  l>  of  lusto6rar.i  should  be  generated  and  studied  to 
insure  that  both  absolute  and  relative  reliability  arc  buinp, 
reflected  as  desired.  Finally,  Input  the  parameters  as 
explained  above. 

c r a s h / f o w  decision  Matrices 


introduction.  when  aircraft  Malfunctions  occur. 
routin0  decisions  :.ust  be  made.  h  i  i  e  airborne,  aircraft 
i.;iy  crash  due  to  t.u  i  n  le  nance  failure,  or  battle  datia^e ,  or  a 
c  c b  i  n  a  t  io  n  ot  both-  On  the  0  round  aircraft  nay  require 
towin,;  .  The  variables  (LCX3H,  LTOW  ,  La  AT )  used  to  determine 
the  state  of  tlie  aircraft  after  a  malfunction  are  contained 
between  lines  43u  and  458.  each  matrix  (vector)  can  contain 
up  L  o  Z4  encoded  numbers.  d  a  c  h  e  n  c  o  a  e  .1  number  represents  a 
combination  of  system  failure  levels. 

LC  h  S  H •  when  a  malfunction  occurs  in  the  air,  the 

network  uses  the  appropriate  r  OAT  LAN  routine  to  compare  the 
aircraft's  failure  code  to  the  appropriate  matrix,  dibit  by 
elicit  (system  by  system).  if  an  aircraft  system  level  is 
^renter  than  or  equal  to  the  co  r  r  e  s  po  nd  i  up,  encoded  number 
diuit  for  all  systems ,  the  aircraft  will  crash.  lhe 
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aircrai  L  i  a  coi^uroJ  to  every  encoded  number,  up  to  tile 
[joint  its  status  is  d  e  t  e  rmi  ned  . 

bet  the  values  in  riLKS  h/ 'iTOi.' /.in  AT  equal  to  tlie  number 
ot  encoded  numbers  in  each  matrix  (vector).  Haler  to  the 
eo  wisents  between  lines  4  30  and  44  7. 

L  T  0  w  .  This  vector  is  u  c  d  i  r.  a  ssisilar  manner  to 
tCbSU.  The  only  difference  is  that  the  levels  specifies  in 
the  encoded  numbers  represent  combinations  of  system  failure 
levels  which  cause  an  aircraft  to  require  towing.  1 o r 
example,  if  an  aircraft  will  require  towin„  when  t  ho  level 
ot  systems  1  to  A  is  0  r  e  a  t  e  r  than  or  equal  to  3 ,  then  the 
on  coned  number  would  be  included  as  333300.  all  reasonable 
combinations  should  be  included.  Set  .'iOdSa/aTuU /UiiAT 
accordingly  in  line  443. 

LoAT.  This  vector  is  similar  to  the  above,  except 
that  it  also  considers  the  influence  of  battle  daniaje  on  the 
possibility  of  crashing.  Tnis  is  done  by  adding  a  seventh 
it  to  the  encoded  numbers.  The  batLlo  damage  is 

the  ...  ost  significant  (first  d  i  0  i  t )  ,  and  the  next  six  are 
aircraft  systems  of  trie  aircraft  failure  code.  The  numbers 
are  encoded  as  in  LCilOn  and  stored  in  the  same  fashion 
except  an  additional  d  is  added  for  the  crash  code.  bi_t 
h  C  it  S  i .  /  i.  T  0w  /  i-i  0  A  T  (line  A  A3)  according  to  the  number  of 
encoded  numbers  in  each  of  the  vectors. 
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airfield  Co.:i^u^i  t  ioii/l-c  t  i  ui  t  ion 

jcvtral  variahloj  arc  ujt  J  lo  establish  t  he  compos,  it  ion 
juc  define  t  ne  activities,  oa  t  he  airliclii.  1  he  t  area  which 
roi,uiri  further  iltf  iuiiion  arc. 

v  i  )  distances;  let  we  on  joints  on  the  airfield, 

(2)  rates,  m  travel  for  aircrait  and  pilots  and 

(3)  nii.iber  ox  oh  alters.,  revetments,  ana  disftrsul 

par  n  i  ,IlJ  SpOts  ,/ e  r  s'^uj  J  nu  . 

Tuo  distances,  between  joints  on  the  uiriicii  are 
entered  in  tile  !..  atrix  Dial  (lines,  374  to  3c7).  ij  1  si  i.  a 
two-d  iueiicional  array.  Ine  distance  between  point  i  a  no  J 
is  entered  in  array  location  i;  1 S  T  (  I  ,  J  )  and  ulbT(J,i).  The 
location  codes;  for  L'ldT  are  containeu  in  linen  35  b  to  37d. 

dates,  oi  L  raVe  1  are  also  inputs,  to  t  he  ...udel.  Kates, 
are  used  lo  determine  travel  time  a  from  point  1  to  point  J 
on  the  airfield  lor  both  piiola  and  aircrait.  These  Values, 
are  entered  in  linen  593  to  5  9  o  . 

The  third  variable,  «TYPii  (linen  50u  to  a  Ob),  la  used 
to  specify  tiie  nunuer  oi  each  type  ol  parking  apace  per 
squadron.  since  d’PAKK  in  d  i e  us-  io  ued  to  50,  Liie  s;u..i  oi  eacii 
type  of  parkin^,  for  a  oquauron  n’uould  not  exceed  30.  if  a 
user  specifies  the  number  of  shelters,  dispersed  spaces,  and 
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Setting  the  is  aster  Clock 


There  are  two  areas  to  be  addressed  in  controlling  Lne 
flow  o'  aircraft  with  the  Executive  Network..  The  tirst  area 
is  establishing  the  hours  of  daylight  for  tire  three  days  of 
the  model.  The  second  area  is  scheduling  when  the  major 
events  are  to  be  initiated. 

for  the  first  area,  this  is  accomplished  by  specifying 
the  time  of  sunrise  and  sunset,  or  civil  twilight  (this  is 
-here  the  operational  day  is  defined,  i.e.,  the  number  of 
1  lours  during  which  flying  operations  are  conducted).  These* 
times  are  specified  relative  to  T..U.(  ,  the  simulation  time, 
for  example,  on  line  647  oi  hub  routine  iWTLc  ,  daylight  times 
are  set  to  15.0,  1455.0,  and  2895.0  These  values  indicate  to 

the  model  that  it  becomes  daylight  at  15  minutes  into  the 
simulation,  and  then  again  when  TNO.J  equals  1455  and  2895 
minutes-  The  DUS  if  variable  is  set  in  a  similar  fashion  on 
line  648. 
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lilt?  other  area,  i.iajor  event  sc  lied  u  1  i  nc,  ,  is  hand  lea  witli 
a  two-  dimensional  matrix  called  luiJlVu  T  (lines  05  J  to  7  00). 
The  specifications  of  this  variable  dictate  tile  tiue  at 
»hicli  each  major  event  is  to  be  initiated  relative  Lo  11.0.1. 
u|i  lo  thirteen  events  can  be  scheduled.  The  first  location 
of  each  pair  L.vent(l,l),  is  the  time  for  the  event  to  occur, 
and  Lhe  second  location  of  the  pair  ,  event ( 1,2),  is  the 
event  specified.  L vents  which  can  be  scheduled  include. 


0  -  Terminate  the  run 

1  -  .Start  scheduling  flights 

2  -  iie^i  n  nijht  parkin^, 

3  -  'e’er  for..  Changeover 

4  -  bet  ermine  rep  l  ace;.icn  t  a  qua  dr  on  requirements,  and 

reconfigure  aircraft  for  tlie  following  Ja;'s  fra;, 

'J  'J  -  not  used 

The  user  must  specify  the  times  relative  to  T  i\  0  *  ,  and 
the  events  to  be  initiated.  As  an  example,  lines  b77  and 
678  cause  the  nip,  h  t  parkin;’  routine  to  be^in  parkin’ 
aircraft  in  shelters  when  TNOW  is  equal  to  9  80.0.  Since 
this  matrix,  ..AJEViJT,  controls  the  model  at  the  macro  level, 
„reat  care  should  be  taken  in  setting  tiiese  values. 
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Other  CouK.it.  n  c  a 


■  ios  t  ,  but  not  a  1  1  of  the  variables  covered  in  this 
section  were  of  a  aorc  complex  nature  than  those  covered  in 
Lhe  main  text.  Some  were  added  because  there  were 
additional  comments  which  needed  to  be  trade  to  a  possible 
user  who  was  interested  enuu„h  to  peruse  these  notes.  These 
notes  were  designed  to  complement  Chapter  111  and  Appendices 
A  and  1J  .  Anyone  intending  to  use  the  model  should  also 
refer  to  Annex  A  . 

To  further  aid  in  execution  of  the  model  a  sample  day 
file  from  a  run  on  the  Aeronautical  Systems  division,  CDC 
6600  system  (CYAEn  7  4)  is  included  in  Figure  C . J .  This  is 
not  a  small,  quickly  executed  model.  it  requires  an 
input-output  time  of  around  400  seconds,  ana  central 
processor  times  of  around  140  seconds  on  the  C  Y  is  C  R  74. 

Close  attention  should  be  given  to  setting  the  variables  to 
the  desired  values  on  the  first  try. 
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1  CSA  NOS/BE  L530C  L530C-CHR1  *7/13/81 

21.21.30. RUH9NUC  FROM  CSA/9N 

21.21.31. IP  00009600  WORDS  -  FILE  INPUT  .  DC  *4 

21 .21 .31 .  RUN . CM250000  >  T 400 . 1 G 400 .  T 8008 45. H ANN, B 
21.21.31.0X4566.AFIT.AFIT.AFIT. 91, 91 .91 

21.21.34. ATTACH,PROCFILiIDsA810171»SN=A$DAD. 

21.21.34. PFN  IS 

21 .21 .34. PROCFIL 

21. 21. 35.  AT  CT--  011  SN=ASDAD 

21.21.35. BECINiN0SFILE. 

21.21. 35 . RETURN . 2ZZZZLB . 

21.21. 35. ATTACH,ZZZZZLB,IFSLIB,PW=*— *,CY=999.  ID 

21.21.35.  =A810171 tSN=ASDAD. 

21.21. 36.  LIBRARY i ZZZZZLB . 

21. 21. 37.  NOTIFY.  NOSFILE  VERSION  3  READY. 

21.21.38.  NOSFILE  VERSION  3  READY. 

21.21.38.  RETURN . PROCF IL . 

21. 21. 39.  REVERT. 

21.21.39. GET,F708BIN»ID=CQVEY. 

21. 21. 44.  FILE  NAME  F708BIN  HAS  BEEN  RETRIEVED 

21.21.45. REUIND.F708BIN. 

21.21.45.  ATTACH » PROCF I L » SLAMFROC » I D= AFI T . 

21. 21. 45.  AT  CY=  008  SN=AFIT 
21.21.45.8£GIN,SLAH,.H=F708BIN,PL=100000. 
21.21.46. IFE, NUN (0). EG. 0.NOPMD. 

21.21.47. ELSEiN0PND. 

2 1 . 2 1 . 47 .  ATT ACH i XXXSLAM . SLAM5 . 1 D= AF I T . SN = AF I T , 

21. 21. 47.  AT  CY=  001  SN=AFIT 

21 .21 .47. IFE, NUN (F708BIN) .Efl. 1 .MERGE. 

21. 21. 48.  ELSE. MERGE. 

21.21.48. MAP.OFF. 

2 1 . 2 1 . 49 . SEGLOAD , I =SL AMSEC . 

21.21. 49. LQAD.F708BIN. 

21.21 .49 . LOAD. KXXSLAM. 

2 1 . 2 1 . 49 .  EXECUTE .. INPUT » OUTPUT .... *PLS 100000 . 


Fig.  C.3«l  Typical  CYBER  ?4  Day  File 
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21.22.19.  MON-FATAL  LOADER  ERRORS  - 
21. 22.89. DUPLICATE  PROGRAM  NAME  FROM  FILE 
21. 22. 09. PROGRAM  SKIPPED  —  MAIN 
21. 22. 09. LAST  FILE  ACCESSED-  XX ISLAM 
21.22.09.  MOM-FATAL  LOADER  ERRORS  - 

21. 22.09. DUPLICATE  PROGRAM  NAME  FROM  FILE 
21. 22. 09. PROGRAM  SKIPPED  —  EVENT 
21. 22.09. LAST  FILE  ACCESSED-  XXXSLAM 
21.22.09.  MOM-FATAL  LOADER  ERRORS  - 

21. 22. 09. DUPLICATE  PROGRAM  NAME  FROM  FILE 
21. 22. 09. PROGRAM  SKIPPED  —  INTLC 
21. 22. 09. LAST  PILE  ACCESSED-  XXXSLAM 
21.22.09.  MOM-FATAL  LOADER  ERRORS  - 

21. 22. 09. DUPLICATE  PROGRAM  NAME  PROM  FILE 
21. 22. 09. PROGRAM  SKIPPED  —  OTPUT 
21. 22. 09. LAST  FILE  ACCESSED-  XXXSLAM 
21.22.09.  NON-FATAL  LOADER  ERRORS  - 

21. 22. 09. DUPLICATE  PROGRAM  NAME  FROM  FILE 
2 1.22. 09. PROGRAM  SKIPPED  —  USERF 
21. 22.09. LAST  FILE  ACCESSEB-  XXXSLAM 
Z2.02.23.LOCKIN. 

22.08.04.  STOP 

22.08.04.  244700  MAXIMUM  EXECUTION  FL. 

22.08.04.  128.774  CP  SECONDS  EXECUTION  TIME 

22. 08.07. ENOIF.MERCE. 

22.08.08.ENDIFiNOPHD. 

22.08. 08.REVERT.CCL 

22.08. 09. OP  00007040  WORDS  -  FILE  OUTPUT  . 
22. 08. 09. MS  7294  WORDS  t 

22. 08. 09. CPA  131.397  SEC. 

324.551  SEC. 

34109.804  KWS . 


22.08.09.10 
22. 08. 09. CM 
22. 08.09. CRUS 
22. 08. 09. COST 
22.08.09.PP 


231.949  SEC. 


22.08. 09.EJ  END  OF  JOB,  9N 


DC  40 
124032  MAX  USED) 
107.078  ADJ. 
94.047  ADJ. 
170.098  ADJ. 
373.244 
24.40 

DATE  01/27/82 
T800845. 


Fig.  C . 3 • 2  Typical  CYBER  ?4  Day  File 
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